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ABSTRACT 

Nonlinear structural solution methods in the current research 
literature are classified according to order of the solution 
scheme, and it is shown that the analytical tools for these 
methods are uniformly derivable by perturbation techniques. 

A new perturbation formulation is developed for treating an 
arbitrary nonlinear material, in terms of a finite-difference 
generated stress-strain expansion. Nonlinear geometric effects 
are included in an explicit manner by appropriate definition 
of an applicable strain tensor. A new finite-element pilot 
computer program PANES (Program for Analysis of Nonlinear 
Equilibrium and Stability) is presented for treatment of prob- 
lems involving material and geometric nonlinearities, as well 
as certain forms on nonconservative loading. 
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1.0 INTRODUCTION 

Purpose and Scope of the Study - The present research was under- 
taken to develop improved techniques for solution of structures 
with material and geometric nonlinearities, including the limit 
point and bifurcation behavior which occurs in buckling and 
collapse problems. Because the effectiveness of such solution 
techniques has been found to depend strongly on the method used 
for generating the nonlinear equations, e.g., creation of the 
system Jacobian matrix, improved equation generation techniques 
were also emphasized. Available nonlinear analysis methods 
were evaluated for their current capabilities and their pro- 
jected long term potentials, and the methods judged to be most 
promising formed a starting point for development of the tech- 
niques presented in this report. Corresponding FORTRAN sub- 
routines were developed and incorporated into the pilot computer 
program PANES (acronym of the Program for Analysis of Nonlinear 
Equilibrium and Stability) for checkout and evaluation. The 
equation generation and solution techniques are within the 
framework of the finite element structural discretization method. 

1.1 General Philosophy and Evaluation of Methods 

Criteria - Structural solution methods available in the current 
literature were initially evaluated for this study based on 
four general criteria: 

1. A high degree of automation which minimizes the 
burden on the user. 

2. Cost effectiveness for large size problems. 

3. The use of an effective incremental technique which 
allows the user to follow and plot the structural 
response path. 

4. Achievement of accuracy by a self-correcting character- 
istic, which assures that the true solution is 
approached at each point where results are desired. 
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During the study it was decided that recent advancements in 
structural theory made it timely to broaden the applicability 
of the developed equation generation and solution techniques by 
including a fifth requirement: 

5. An efficient treatment of large-strain problems, and 

of arbitrary nonlinear elastic or inelastic materials. 

Classification of Methods - The current literature contains a 
very broad variety of nonlinear solution methods, and even the 
specialized requirements for nonlinear structural solutions have 
not resulted in consensus on a best method or methods. On the 
other hand, certain types of highly nonlinear problems are 
presently receiving considerable attention (for example, sta- 
bility analyses and large-strain effects with arbitrary non- 
linear materials) , and such problems tend to eliminate certain 
methods from consideration while giving some direction to future 
research and development. 

Most of the nonlinear structural solution methods can be broadly 
grouped into three classes: 

1. Methods which use only the initial (constant) stiffness 
of the structure, and rely on iteration with the calcu- 
lation of residual (unbalanced) forces to achieve the 
correct solution. The loading may be applied incre- 
mentally or in a single step. 

2. Methods which form the Jacobian (tangent stiffness) 
matrix at a series of load increments, without itera- 
tion; also, various combined incremental and iterative 
algorithms which update the Jacobian at each step or 
periodically. 

3. Higher-order methods (perturbation approaches or various 
numerical integration schemes) which employ higher- 
order derivative relations in addition to the first- 
order Jacobian coefficients. 
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In many respects, the aboVe ordering of classes is according to 
increasing sophistication and greater capability. For example, 
the class 3 methods are especially suited for analysis of com- 
plicated limit point and postbuckling problems. As might be 
expected, the historical development of nonlinear solution methods 
has shown some tendency to progress from original class 1 tech- 
niques to those of classes 2 and 3. 

1.2 Previous Developments and Present Work 

Historical Development - Early finite-element work in nonlinear 
structural analysis began with a paper by Turner, Dill, Martin 
and Melosh (1960). This work incorporated nonlinear geometric 
effects within the so-called "geometric" stiffness matrix, and 
various incremental and iterative solution procedures were 
recognized by the authors. In the initial attempts at nonlinear 
solutions which followed, there was a natural tendency to gen- 
eralize existing linear capabilities. This usually led to 
iterative approaches and use of the initial constant stiffness 
matrix, with calculation of the nonlinearities as additional 
load terms. The geometric stiffness matrix, however, formed the 
basis for eigenvalue buckling analyses. A more consistent and 
theoretical basis for the geometric stiffness matrix was investi- 
gated by Gallagher and Padlog (1963) , who used a strain-energy 
derivation with the same displacement functions for both the 
linear and nonlinear stiffness terms. Several formulations for 
nonlinear beam and plate analysis soon followed. Mallett and 
Marcal (1968) presented a unifying basis for formulating large 
displacement problems, by deriving the total strain energy as 
a function of nodal displacements and including previously 
neglected nonlinear terms. Meanwhile, developments were pro- 
ceeding in the area of material nonlinearities, for example the 
plasticity work of Argyris (1965) and Marcal (1968) , and non- 
linear elastic analysis by Oden and Kubitza (1967) . 
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A consensus on solution methods did hot appear, however, and 
different approaches were emphasized by different research groups. 
Zienkiewicz and coworkers popularized some of the class 1 solution 
methods, and Zienkiewicz et al. (1969) presented a particular 
method called the "initial stress" residual-load method. This work 
was followed more recently by techniques for improving the inter- 
ative convergence of such methods, e.g. Nayak and Zienkiewicz 
(1972). However, the paper by Zienkiewicz and Nayak (1971) pre- 
sents a quite general formulation for various class 2 methods with 
application to combined geometric and material large-strain non- 
linearities. Considerable work in geometric and material non- 
linearity has been done at Brown University, for example Marcal 
(1969) , and McNamara and Marcal (1971) . Researchers there have 
tended to favor class 2 methods without iteration, although the 
use of one or two iterations in each load step has been suggested 
as a way of increasing accuracy. Combined incremental and inter- 
ative class 2 techniques (Newton Raphson iteration, for example) 
have been employed for analysis of highly nonlinear material and 
geometric nonlinearities, including some stability problems, by 
Oden and Key (1970), Sandidge (1973), and Key (1974). It would 
certainly appear that for such problems the class 1 methods at 
least are highly unsuitable. A number of nonlinear survey and 
development papers have been written at Texas A & M University, 
including Haisler et al. (1971), Stricklin et al. (1972), 

Stricklin et al. (1973) and Tillerson et al. (1973) . These papers 
provide a detailed investigation of various class 1 and 2 methods, 
as well as certain class 3 methods which rely on numerical inte- 
gration schemes. Although perturbation procedures are not tested 
by these authors, it is suggested in one of the early papers that 
perturbation techniques would be very time consuming for cases 
w-ith large degrees of freedom, while a more recent paper notes 
that these techniques require further evaluation before they will 
be accepted by structural analysts. Many other researchers work- 
ing in the areas of limit point and bifurcation stability problems, 
however, have concentrated on perturbation methods, reviving the 
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original theoretical developments in that area by Koiter (1945). 
Haftka et al. (1970) use an extension of Koiter' s perturbation 
theory in a solution approach called the "modified structure 
method." Morin (1970) uses perturbation techniques in developing 
higher-order predictor and corrector algorithms for analysis of 
geometrically nonlinear shells. Gallagher and Mau (1972) and Mau 
and Gallagher (1972) establish procedures for limit point and 
postbuckling analysis based on perturbation expansions and the 
evaluation of determinants, which employ a combination of class 
1, 2 and 3 solution techniques. A number of other perturbation 
developments of a more theoretical nature are included in the 
references and bibliography section of this report. 

Much of the present diversity in nonlinear solution methods can 
be attributed to a desire to further investigate the potentials 
of all methods and to compare the results obtained from them. 
However, the comparisons and evaluations which are presented 
often disagree in their conclusions as to the effectiveness of a 
particular method. It must be surmised that the evaluation of 
nonlinear solution methods is necessarily influenced by the pre- 
vious experiences and preferences of the researcher, by the degree 
of sophistication in his various solution method tools, and by 
the type of problems toward which his interests are directed. 

Direction of Present Work - Because the present work was directed 
toward obtaining techniques whose applicability included the 
more highly nonlinear structures, a decision was made to elimi- 
nate from consideration the constant-stiffness methods of class 1. 
Although schemes have been proposed for extending these methods 
to more severe nonlinearities, it must be said that the arguments 
given are not convincing. In fact, when the structural system has 
advanced into a highly nonlinear state, the initial constant 
portion of the stiffness does not really possess any more signi- 
ficance than that provided by an arbitrary positive definite 
matrix; it can not be expected that a technique based on this 
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matrix will be of any significant value in advancing the solution 
beyond the current state. It was also decided in the present 
work to reject those methods of a non self-correcting nature, 
i.e., methods which do not involve an iterative calculation of 
the unbalanced or "residual" forces, which gives an indication 
of accuracy and allows the solution to be improved. Although 
such methods are sometimes effective, they can lead to serious 
errors in the computed results, especially for path dependent 
problems. A third group of methods eliminated from consideration 
were those which use the solution data generated at several 
previous solution points. Such methods essentially extrapolate 
the previous data, either by some numerical integration formula 
or by a curve fitting approach. These methods require storage 
of previous data and are usually not self-starting . However the 
main objection to their use would seem to be that the same type 
of capability is provided by perturbation methods, which more 
accurately evaluate the path direction and are more generally 
applicable to a wide range of highly nonlinear problem types 
(e.g., those involving path discontinuities such as bifurcation 
points) . 

With these considerations, the methods which remain for develop- 
ment include methods of "incremental loading", Newton Raphson 
iteration and its modifications involving only periodic updating 
of the Jacobian, and higher-order methods including various orders 
of predictor and corrector algorithms. In order to make the 
current methods applicable to cases of large strain and arbi- 
trary nonlinear materials, the equation generation process is 
accomplished in the present work by a finite difference expansion 
procedure. It is found that generation of the nonlinear equa- 
tions by this means within a perturbation context provides a 
unifying basis for definition of the nonlinear solution terms, 
including as special cases the first-order Newton Raphson 
and incremental loading methods, as well as almost an unlimited 
variety of higher-order solution techniques. The perturbation 
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procedures have the advantage of a sound theoretical basis in 
classical developments, and lend themselves readily to both limit 
point and postbuckling problems as well as to simple nonlinear 
behavior without critical points. 
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2.0 DETERMINATION OF THE EQUILIBRIUM PATH: A GENERALIZATION OF 

STATIC PERTURBATION TECHNIQUES 


In this Section the theory and techniques are developed for 
following the nonlinear equilibrium path of a structure under 
prescr ibed loading. It is assumed that the equilibrium path is 
continuous and unique, although limit point behavior is allowed 
(the non-uniqueness due to bifurcation of the equilibrium path is 
considered in Section 3. The development follows the "static 
perturbation method” which was recognized and established in 
concrete form by Sewell (1965). The present work generalizes 
previous structural solution techniques based on the method to 
allow effective treatment of arbitrary nonlinear materials. The 
resulting formulation is shown to provide a quite general and 
unifying basis for solution of nonlinear structures, including 
geometric and material nonlinearities as well as certain forms of 
nonconservative loading. A summary of the formulation is con- 
tained in the paper by Vos (1974) . 

2.1 Description of Nonlinearities 


An important characteristic of the present method Is a prelim- 
inary separation of the nonlinear material and geometric effects, 
which minimizes the required number of perturbation expansion 
terms, and also increases numerical accuracy. 

Material Effects - The nonlinear material effects are described 
by expanding the stress about a known equilibrium configuration: 


a . 

l 


a * + DO ij AE j + D 1 ijk A£ j Ae k + ••• 


( 2 - 1 ) 


which provides the stress, a, in terms of the incremental strain. 
As. Here and throughout this work, an asterisk (*) denotes 
quantities evaluated at a known equilibrium state, and A denotes 
an incremental quantity. In (2-1) a* is the initial stress, while 
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DcA and Dl* are 2nd and 3rd* order incremental stress-strain ten- 
sors, respectively. This type of expansion can be developed 
numerically for a general nonlinear elastic or inelastic material, 
by an efficient finite difference or Taylor series evaluation.! 
Complete symmetry of the D tensors can be used to advantage if they 
are derivable from a strain-enery function, or in certain other 
cases such as that of associative plasticity. These considerations 
are discussed by Zienkiewicz and Nayak (1971) in a development 
which employs only the 2nd order (DO) tensor. In any case, the 
tensors can be made symmetric in the j , k and any higher order 
indices . 


Geometric Effects - The nonlinear geometric effects are included 
through a definition of finite element displacement functions and 
an appropriate strain tensor, giving 


9 . = G. q . 
i 13^3 


e, = AO, .9 . + =- Al. .. 9 .0. 

l ij j 2 ijk j k 


(2-2a) 
( 2- 2b) 


Here q are the element generalized (nodal) displacements of an 
element, G is obtained by differentiating the assumed displacement 
functions, 9 are the displacement derivatives at any point, while 
AO and Al are constant coefficients which define the strain tensor 
with Ab_,^ = Al^ j . The explicit form ( 2 — 2 b ) of the strain tensor 
will be seen to simplify lat er manipulations. 

t The best approach developed thus far is a forward difference 
scheme, which requires a minimum number of function evaluations 
and allows an arbitrary difference size for each independent 
variable. Explicit coefficients have been derived for such expan- 
sions of either linear, quadratic or cubic form, and in terms of 
an arbitrary number of variables. Details are provided in Appen- 
dix A. It may be noted that for certain problems involving 
incompressible materials, the hydrostatic stress must be included 
as an indepdent parameter in addition to the strains. 
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Advantages of Present Approach -» The* present approach defines 
all nonlinearities through the form of (2-1) and (2-2) , rather 
than through a direct expansion of the nodal displacements such 
as that used in the investigation of Oden and Key (1970). The 
present approach appears to offer substantial advantages, 
because it allows implementation of perturbation theories into 
limit point and bifurcation analysis, without involving a huge 
number of terms and formidable algebraic operations. As a 
practical matter, it should also be noted that a numerical 
expansion based on displacements often causes severe problems 
with accuracy of the expansion coefficients, due to large differ 
ences in magnitude between individual displacement limits (e.g., 
between the membrane and bending freedoms of a plate or shell) , 
and the selection of accurate finite difference sizes then 
becomes difficult. Accuracy is more easily obtained in an 
expansion of the type (2-1), because the strain limits tend to 
be of the same order of magnitude. 

2. 2 Formulation of Equilibrium Equations 

Virtual Work Statement - The principle of virtual work, which is 
valid for arbitrary nonlinear materials and nonconservative sys- 
tems, is employed to obtain equilibrium equations for the system 
of finite elements. The formulation is developed here for a 
conservative system, and nonconservative effects are treated in 
Appendix B. The equivalence of external and internal virtual 
work, relates the generalized nodal forces p and displacements 
q of a particular finite element, in the element equilibrium 
equation 


6q i p i = * r v 6c a a a dV (2-3) 

which holds along any equilibrium path in the neighborhood of 
the reference equilibrium (*) configuration. Here 6e and 6q 
are kinematically consistent variations, and from equation (2-2) 
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60 . = G. .6q . ' ‘ ' f { 2~4a) 

1 13 ^3 

6e . = (AO . . + AI . 0, ) 60 . = A. . 6 0 . = B . . 6q . ( 2 — 4b) 

1 lj I 3 k k 3 13 3 13 ^3 

The integral in equation (2-3) is taken over the volume of the 
element, and it is to be noted that a proper definition of stress 
and strain is required to give the correct evaluation of internal 
work. One approach for accomplishing this is a formulation of 
Lagrangian strain and second Piola-Kirchof f stress integrated 
over the undeformed volume, e.g. see Oden and Key (1970) . 


Basic Equilibrium Equation - Substituting for 6e, and noting that 
(2-3) must be satisfied for arbitrary variations 6q, provides the 
basic equilibrium equation for the element, as 


p. - f B .a dV = f m (AO ■+ A1 0)o dV 
„ ai a am amn n a 


( 2-5a) 


In order to merge the element equations into the system equations, 
the usual type of finite element transformation is applied. The 
system forces and displacements will be denoted by the capitals 
P and Q, respectively, and the system basic equilibrium equation 
corresponding to (2-5a) is written as 


P. = / B .0 dV = S Cm \ AO + Al 9)0 dV 

1 ai a am amn n a 


( 2- 5b) 


where now it must be understood that the integral is summed over 
all elements while applying the proper element-system nodal 
transformations. With this understanding, the element and system 
quantities will here be used interchangeably. 


Derivative Relations - Equations (2-5) may now be differentiated 
as many times as desired with respect to some suitable path 
parameter. Toward that end, it is useful to record here the 
following typical derivative relations, where an overdot (*) 
denotes differentiation with respect to the path parameter. 
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°a DO ab e b + 2Dl ab E b AE c + **• 


a = DO*, e, + 2D1* e, Ae + 2D1* e,e + 
a ab b abc b c abc b c 


e = B . a . 
a ax A x 


e =B »q. + B . q, =B . q. + Al 60 
a ai^i ai^i ai n i amn m n 




J 


( 2-6a) 


and at the reference configuration (Ae = 0) , we have 


a* = DO*, e* 
a ab b 


o* = DO* e* + 2D1* e*e* 
a ab b abc b c 


( 2-6b) 


First Order Equilibrium Equation - Differentiating equation 
(2-5b) once, and evaluating at the reference equilibrium (*) con- 
figuration, gives 


P* = / (B*.cr* + B*.a*) dV 

x v ax a ax a 


( 2-7a) 


Substituting from relations (2-6b) gives 

H = / v <G mi a a A1 am n G nj^j + B ai D0 Ib B b > dv < 2 ' 7b > 

This is the first order equilibrium equation, which may be 
written in the form 


P* = K0* .0* 
1 1] 3 


{ 2 — 7 c ) 


where 


and 


KOJ. = / (G . *A1 G . + B* . DO*, Bj . ) dV 

ij v mx a amn nj ax ab bj 


B*. = = G . (AO + Al 0*) 

ax mi am mx am amn n 
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The "tangent stiffness" relation (2-7c) is equivalent to the 
incremental matrix formulation of Zienkiewicz and Nayak (1971), 
although the tensor form given here shows perhaps more clearly 
the symmetry and differentiability properties, of the tangent 
(Jacobian) matrix KO*. The first contribution to KO* is due to 
the initial stresses during changing geometry, and is always 
symmetric in form. The second contribution is due to the incre- 
mental stress-strain relation, and its symmetry depends on 
symmetry of the matrix DO*. 


Second Order Equilibrium Equation - A second differentiation of 
(2-5b) and evaluation at the reference configuration, gives 


p* = / (B*.cr* + 2B*.a* + B*.a*)dv 

i ^ ai a ai a ai a 


( 2- 8a) 


Substituting from relations (2-6b) gives 


p* = / {G • a*Al G .q* + 2G . AI 9* DO* e* 
, ' mi amn n ab b 


V 


mx a amn nj ■‘■j 


+ B* . (DO* B* .q* + DO* Al, 5*0* + 2D1*, £*£*) } dV (2-3b) 

ai ab bj^j ab brs r s abc b c 


This is the second order equilibrium equation, which may be 
written in the form 


p* - KO* , Q* + PI* 

l iD w 3 i 


( 2-8c) 


where PI is a psuedo force term given by 


P1 i = / v G mi {DO ab (A Jm A1 brs®?®I + ^Wb®^ 
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2.3 Solution of Equilibrium Equations 

Incremental Load and Path Parameters - An increment of conserva- 
tive loading is defined by 

AP ± = A P?, P i = A P? , etc. (2-9) 

using a variable load parameter A and constant nodal load 
distribution P° . 


Taylor series expansions are then used to approximate both the 
incremental load parameter A and displacements AQ: 


A = A*S + i A*S 2 + . . . 
AQ i a Q|S + | Q|S 2 + . . . 


(2-10a) 

(2-10b) 


In order to handle limit point situations within the present 
formulation, the path parameter S is here taken as defined by 

S 2 = i K0? j 4Q i AQj > 0, i = + 1 (2-11) 

with the requirement that KO*, evaluated at the beginning of 
each load increment, be nonsingular (either positive or negative 
definite). Without any loss of generality, additional require- 
ments imposed at every path point, S, are that 

* * 2 

S = = 1 


«• ... 

s = s - ... - 0 


Successive differentiation of (2-11) provides the relations 


2SS = i KO*. (Q.AQ. + AQ.Q.) 

2S 2 = i KOJjCQjAQj + 2Q i Q j + AQj_Qj ) 

2-7 


( 2-12a) 
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0 “ i KOJ j (Q‘ i AQ i + 3Q t Q. + 3 Q ± Q. + A q/q . ) 


(2-12a) 


and evaluation at the reference state (S = AQ. = 0) , yields 


S 2 = 1 = i KO* .Q*Q* 
i j i j 


0 = i KO* . (Q*Q* + Q*Q*) 
x j l j ■ l j 


( 2-12b) 


It may be noted that relations (2-12) hold for the general case 
of an unsymmetric KO* matrix. 


Determination of Rate Quantities - In order to implement various 
solution techniques, the equilibrium equations (2-7c) and (2-8c) 
must be used to determine the load and displacement rates. 
Multiplying (2-7c) by Q*, and making use of (2-9) and (2-12b), 
gives 

i = A*Q*P? ( 2-13a) 

IX 

Solving (2-7c) for Q* gives 

KO*7 1 A*P3 = Q* 2 A*Q? (2—1 3b) 

and substituting A*Q° for Q* in (2-13a) gives 

A* 2 = i/(Q?P?) ( 2-1 3c) 

. . • 2 

where now x xs chosen to make A** positive. Multiplying (2-8c) 
by Q*, and again making use of (2-9) and (2-12b) , gives 

Q*A*P? = KO*.Q*Q* + Q*P1* 
x 1 1 jxj x x 


■KOt .Q*Q* + Q*Pl* 
i)i] x x 


( 2-14a) 
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Solving (2-8c) for Q* gives 

Q* = KO»T 1 (A*P? - Pl*> s A*Q? - Ql* (2-14b) 

-L 1 J J J 1 1 

Substituting (2-14b) into (2-14a) with the use of (2-13c) then 
provides the result 

A* = iA* 2 (Pl*Q? + P?Ql*)/2 (2-14c) 

11 1 1 " 

9f 

after which Q* is obtained directly from (2-14b) . 

It is to be noted that a solution for the rates A*, A*, Q* and Q* 
(and higher order rates if desired by similar calculations) 
requires only a single formation and decomposition of the matrix 
KO*. 

Solution Procedures - Once the load and displacement rates have 
been determined to a desired order, many different solution pro- 
cedures can be applied in tracing the nonlinear equilibrium 
path of the structure. The first order rates allow solution 
by methods of incremental loading (with or without evaluation 
of residual forces and corrective iterations) , and Newton 
Raphson iteration where the Jacobian is re-evaluated at each 
iteration. Various combinations of incrementation and interation, 
with periodic updating of the Jacobian are of course possible. 

The second order rates allow the use of a second order predictor. 
The additional cost of the 2nd order predictor is associated with 
the PI psuedo-force term, whose evaluation is performed at the 
elemental level with a cost roughly proportional to that of a 
single "residual force" evaluation. The cost of evaluating Pi 
by the form of (2-8c) is only linearly proportional to the 
number of integration points within an element, so that this 
technique is effective even for elements having complex geometry 
and large degrees of freedom. 
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Such a predictor has been found to be very useful during the 
present study, and although the PANES computer program allows 
use of various predictor-corrector options, the second order 
predictor almost always appears to be more efficient for cases 
of substantial nonlinearity. Since the second order rates 
are valid at any reference equilibrium configuration, they may 
be applied in a corrector technique, at a state where the sys- 
tem is in "equilibrium" under the applied loads plus a set of 
unbalanced residual loads. Thus convergence could be con- 
siderably accelerated if the second order relations were com- 
puted and used at each iteration, although the cost per iteration 
would also increase considerably. Higher order predictor- 
corrector relations are obviously possible as well, and the 
best type of solution capability would probably be a program 
in which more or less arbitrary options are allowed for the 
order of predictor and corrector, the frequency with which the 
Jacobian is updated, and the number of iterations to be per- 
formed per update. Although these considerations will not be 
discussed in any more detail here, the PANES program is at 
least a step in that direction, and makes available various 
options using the first and second order rate relations. 

Limit Point and Step Size Considerations - A major advantage of 
a 2nd order predictor is that, with little increase in computa- 
tional effort, it provides greatly increased prediction 
accuracy and allows larger load steps to be taken. In addition, 
it enables the traversing of limit points and provides various 
techniques for automatic selection of the load step size. 

In the vicinity of a limit point, the load rate relation 

A = A* + A*S ( 2-15a) 
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is -used. Also from (2-10a) the path value for given A is 

S = { -A* + (A* 2 + 2AA*) 1 / 2 }/A* > 0 ( 2 — 15b) 

♦ 

At a limit point A = 0, so that from (2-15a) the critical path 
value is 

S C = -A*/ A* (2-15c) 

Using these relations the limit point can be traversed when A 
is within some specified fraction of its critical value. 

With regard to automatic selection of a general load step size, 
the following predictor relationships are noted. 


• *1 •• o 

AA = AS + j AS 

(2-16a) 

= Q i S + j 

(2-16b) 


Here the quadratic terms give an indication of the accuracy of 
the linear predictor, but because of the truncation of higher 
order terms there is no indication of accuracy for the quadratic 
predictor. The rationale used in the PANES program implementa- 
tion is therefore to select a load step size which limits the 
quadratic contributions to some specified factor times the linear 
contributions. Specifically, change in slope of the load 
parameter during a load step is approximated by 

AA = AS (2-17a) 

and the ratio of slope change to average slope is 

AA/A average = AS/ (A + I A S) (2-17b) 
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This slope ratio is specified as a given allowable magnitude, in 
order to prevent over-prediction in ( 2 - 16 a) of the behavior beyond 
accurate values. A similar step size restriction is employed 
based on ( 2 - 16 b) for displacement rates. 
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3.0 DETERMINATION OF BIFURCATION AND THE POSTBUCKLING PATH 

This section considers the identification of bifurcation points 
in the load-displacement path of a structure, and the prediction 
of the postbuckling path beyond these points. The formulation 
follows the appraoch of Section 2 for representing geometric 
nonlinearities and an arbitrary nonlinear material. The effects 
of nonconservative load on bifurcation and postbuckling are 
treated in Appendix B. 

3.1 Description of the Postbuckling Path 

We consider behavior of the type shown in Figure 3-1, which is 
a plot of the incremental load parameter A for a structure 
versus its incremental displacements AQ , shown here conceptually 
for a single degree of freedom system. The point 0 represents 
a reference equilibrium configuration (Q = Q* , A = AQ = 0) . 
Travel along the "fundamental" and "postbuckling" paths is 
measured by suitable path parameters S and R, respectively. 

Thus S has a value of zero at point 0, while R takes on a zero 
value at the critical bifurcation point C. 



Figure 3-1: Fundamental and Postbuckling Paths 
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We follow the terminology of Mau and Gallagher (1972) and use 
a "sliding coordinate" system to describe the various funda- 
mental and postbuckling quantities. For a given value of A, 
a point on the fundamental path has associated quantities whose 
values are denoted by ( ) ^ , while additional values at the 

corresponding point on the postbuckling path are denoted by ( )^. 

f 

Thus tota l values on the postbuckling path are denoted by ( ) + 

( )P, and we write for the postbuckling path 

Q = Q f + Q P 

AQ = AQ f + Q P 

Ae = Ae^ + e p 

f , p 
a = a + cr 

etc . 

where the A quantities are increments from the fundamental 
reference configuration. 

We will refer to the ( ) ^ and ( values as the "fundamental" 
and "postbuckling" values, respectively, and to their sums as 
the "total" values. 


1 (3-1) 


3.2 Formulation of Postbuckling Equilibrium Equations 


Basic Equilibrium Equation - Because the postbuckling path is 
an equilibrium path, and equation (2-5b) is valid for a point 
on any equilibrium path, we may wri-te the postbuckling equil- 
ibrium equation as 


P i - P f + P i = ' v B ai°« dV = V B ai + B ai> ( °a + a a> dV 


’(3-2) 
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Recognizing that P^ — P^ for a given value of A with conserva- 
tive loading, and subtracting out terms in equation (3-2) which 
are zero because they collectively satisfy the fundamental 
equilibrium equation, provides the desired form of the post- 
buckling equilibrium equation as 


P? = 0 = / {„f „ , Dt , , _ , 

i „ a . a 1 - + . (a + 

V ai a ai a 


P .^P , f 


0 P) } dV 

a 


(3-3) 


Derivative Relations - We now record the following typical 
derivative relations, where a prime ( ) 1 denotes differentiation 
with respect to the postbuckling path parameter R. 


°a = °a - = D 0 £b E b + D 1 *abc ( 2 £ b Ae c + E b E c> 

a * = DO ab E i P + D 1 abc< 2 E b PAE c + 2 E b E ; f+ 2 E b E i P ) 

Q a’ P = DO aH E h' P + Dl? K „<2e' ,P A£ f + 4 £ ' P E ,f + 2 e P £ ' ' f 
a ab b abc be be be 

+ 2e' p c’ p + 2e P e ' ,p ) 
be be 

°;" P = DO ab E i" P + D 1 ^bc ( 2 e i" PAE c + 6 E i' PE c f + 6 E b PE c ,f 
+ 2E P s^" f + 6e” p £ ;, p + 2 e P £: ,, p ) 




b c 


E .p = 
a 

£ 1 - E 1 f 

a a 

= B .q! 
ai^i 

- 

ai^ i 


. . P 

£ = 
a 

B ’ . q *. + 
ai^i 

B .q! » - 
ai^i 

TJ | f ,f 

B . q ! 
ai^i 

n f » . f 

ai^i 

£ 1 * 1 P 

= B 1 q ! + 
ai^i 

2B 1 .q! ’ 
aiu 

+ B . q! 1 1 
ai^i 

1 - B’ ! f q! f 
ai 


- 

B f .q \ • • 
ai^i 

f 





) 


<3-4a) 


and at the critical point (o = a f , B ; . , a p = B p =0) 

a a'ai ai' a ai ' 
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we have 


a; p = D0* b ^ p + 2Dlt^e^ p Ae5 = D0 = K e^ p 


abc b °c 


ab b 


a .. p = DO* s' ,p + D* (2e' ,p A£ f + 4 £ ' P £ ,f + 2c’ p e ,p ) 

=1 2 h h i h n h ^ DC 


ab b abc b “"c ' ~b 

= D0 ab ^ ,P + Dl, K „(4 E ^ p e ^ f + 2e- p e: p ) 


'abc b c 


’b c 


;'' p = DO* s' ?,p + D1 * k ^ ( 2e^‘ , p Ae^ + 6£^ ,P £^ f 

^ clD D ^ ^ ^ 


+ 6e ’ p £ ' ,f + 6s' ,p £ ,p ) 
be be 


abc b 


. .P, «P' 


b c 


= DO , £ ,' ' ’ P + D 1 , ( 6 E 7 ,P £ ,f + 6 £ ,' ^ £ 


ab b 


+ 6 £' ,P £ ,P ) 
b c 


'abc b c 


- p £ " f 
b c 


£ 1 P = B f .q'. P = B*.q'. P + A1 0’ P As f 
a ai^i ai^i amn m n 


£ ..P _ + B i >q » _ B' L q' L = B‘ L . q' 

a ai^i ai^i ai ai^a 

+ A1 (20 ' p 0 • f + 0 ,p 0 ,p ) 
amn m n ™ 


i f i f n f tip 

* n ' = R r“T 1 


m n 


,,,P = B f .ql ,,P + B ' ! q ! + 2B . q'. ' - B'! f q! f - 2B'?q! ,f 
a ai^i ai^i ai^i ai aih 


= B f .q'. ,,P + AI (30 ,,P 0 ,f 4- 30 ,P 0 ,,f 
ai^i amn m n m n 


+ 3 0 ’ 1 P Q ' p 
m n 


) 


(3-4b) 


First Order Equilibrium Equation - Differentiating the basic 
postbuckling equilibrium equation (3-3) , and evaluating at the 
critical bifurcation point, gives 


P*P = o = /. 7 (B f . a ' p + B ,p a ) dV 
l V ai a ai a 


(3-5a) 
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Substituting for a ,p and B 1 p gives 

0 = / " {B f . (DO* e ‘ p + 2D1* e' P Ae f ) + G ,A1 0 ’ p a i , 

v ai ab b abc b c ; ^mi amn n a) dV C 

f 

Substituting for B and using the relations which express 
8 ,P and e’ P in terms of q lP , gives 


0 = 


/ [ (B* . + G .Al A 0 - 1 " ) {DO*, (B* .q». y + Al, e ,P A 0 f ) 

v ai mi amn n' ab bns n s' 


+ 2D1* e’PAe^} + G .Al ’ {G ,q'. P a 1 
abc b c mi amn nj^j a 


+ e; p (D0* b a^ + Di* bc A e ^)}] av 


(3- 


This is the first order postbuckling equilibrium equation, 
which may be written in the form 


0 = 


KO* . Q ,p + PI 1 
ID 3 i 


(3 


where again 


KO* = A^G -0*A1 G . + B* . DO* B* . } dV 
13 V mi a amn nj ai ab b} 


and 


P1 1 = /,,G . iDO* (A* Al, 0 ,p A0 f + Al el p A0 f 
1 V mi ab am bns n s amn b n 

+ A 1 *mn Ac h e n P) + Dl tv^ (2A* E’ p Ae5 + 2A1 e' P Ae f A0 f 
amn b n abc am b c amn b c n 

+ Al Ae^Ae f 0 * p ) }dV 
amn b c n 7 

Equation (3-5d) is an eigenequation form, in terms of the 
unknown critical values A0 and Ae , which is suitable for 
solution by power iteration. 
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Alternatively, the eigenequation may be written in the form 


0 = KO. ,Q' P = (KO*. + AKO . . )Q’ P 

ij j lj ij 


( 3- 5e) 


where KO is the Jacobian at the critical point, and is given by 


KO . . = f xr (G .o A1 G . 
ij V mi a amn nj 


+ B . DO , B; . ) dV 
ai ab bj 


with the a , DO and B quantities evaluated at the critical point. 
(3-5e) may be solved directly for the eigenvector Q ,p , provided 
that the critical values of a , DO and B have been previously 
determined (as in the method proposed by Mau and Gallagher 
(1972) . This equation may also be solved by expressing AKO as 
a Taylor series expansion in the fundamental path parameter, 
giving a form suitable for solution by one of the many "direct” 
eigensolution methods. 


Second Order Equilibrium Equation - A second differentiation of 
the postbuckling equilibrium equation (3-3) and evaluation at 
the critical point, gives 


PV P = 0 = / tt {2B ' ?cj ' p + B .a ,,p + B': p a + 2B * p (a ' f +a f p ) dV 
i V ai a ai a ai a ai a a 


Substituting for a ,,p and B' ,p gives 

0 * f [ 2G .AI 0 ' f DO . s’ p + B . DO K e' ,p + D1 , <4e' P e' f 
V mi amn n ab b ai ab b abc b c 

+ 2e' P e ,P )} + G .AI 0 ,,p a + 2G .AI 0 ,p 

b c mi amn n a mi amn n 


(3-6a) 


DO ab (£ b f + dV 


( 3- 6b) 
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Using the relations which express 0 ,,p and e ,,p in terms of 


q' ' P gives 


am 


0 - 'v [ 2 G m i A 1 amr 9 ; fD 0 ab e '£ + B ai DO ab B bj*j ' P + G mi A ; 
{D 0 ab ( 2 A 1 bns 9 ; Pe ; f + A 1 bns 9 A P 0 s P) + D1 abc + 2 ^ P > > 


+ G .0 A1 G 
mi a awn 


+ 2G mi A1 amn 9 A t ' {D0 ab (E A f + ^>>1® <3-60 


This is the second order postbuckling equilibrium equation, 
which may be written in the form 


0 = K 0 . . Q ’ P + 2S , P2 1 + P2? 
ij 3 i l 


(3-6d) 


where KO is again the Jacobian evaluated at the critical point, 
and 


P2 1 

l 


2 

P2 Z 

l 


A.G. {DO , (A Al, 0 ,P 0 f + A1 s' P 0 f + A1 e f 8 ,P ) 

V mi ab am bns n s amr b r amr b r 

+ 2D1 , A e ' p e^ } dV 
abc am b c 

/ G . {DO (A Al, 0 ,p 0 ,p + 2A1 e ,* P 0 * P ) ’ 

V mi ab am bns n s amr b b r 1 

+ 2D1 , A e' P e ,P } dV 
abc am b c 


The term S' in equation (3-6d) is the derivative of the funda- 
mental path parameter with respect to the postbuckling path 
parameter, and occurs because of the substitutions 


,f 

. f 

1 

= e^s* 

n 

n 

,f 



= e S* 

a 

a 


(3 6d) may be solved for the postbuckling displacement second 
derivatives Q' ,p , and for the path derivative S’. 


3-7 


oo 0000 2 140 ORIS. 4/7 1 



TMB 


COMPANY 


Third Order Equilibrium Equation - A third differentiation of 
equation (3-3) and evaluation at the critical point, gives 


pV'P * 0 = + 3B'! f a ,P + 3B’?a ,,P + B f .a ,,,P 

i v ai a ai a 


ai a 


ai a 


+ B'! ,p (o f +a P ) + 3B' ! P (a ,f +a ,P ) + 3B ' P (o ' • f +o ' ' P ) 
ai a a ai a a ai a a 


+ B P . (a 1 ' ’ f +a 1 • ,p ) } dV 
ai a a 


.( 3- 7a ) 


Substituting for o' 1 ,P and B’ ' ,P gives 

0 = ; V t3G mi Al amn 6 A' D °ab e' P + 3G . Al 0 ’ f {DO , e' ,P 

b mi amn n ab b 

+ D 1 abc (4£ iV + 2 e i Pe o P > } 

+ B ai DO ab £ i” P + D1 abc ^b'^ + + 6e £ ,P ^ P > } 

+ G .AI 0 ' 1 * p a 
mi amn n a 

+ 3G . Al 0’ ,P DO , (e’ f + £’ P ) + 3G .AI 0 ' P {DO , <£’ ,f + e' ,P ) 
mi amn n ab b b mi amn n ab b b 


1^1^ I yl _ I P _ I ^ 


+ Dl ( 2e ' ‘ L c 1 J * + 4e' i V i + 2e' P e ,P )}] dV 


abc b c 


b c 


'b c 


{ 3- 7b) 


Using the relations which express 0 l ’ ,p and e ’ 1 ,p in terms of 


q f 1 1 p gives 




0 = /„ 3G .Al 0’’ DO + 3G .Al 6 * {DO 




V mi ■ amn n ab b 


mi amn n ab b 


+ Dl (4r ,p p ,f 
abc 1 e b c 


+ 2E b PE ; P) > + B ai DO ab B bj ^" P + G mi A am {DO ab (3A1 bns 0 A ,Pe ; f 

+ 3 A 1 bns 9 A Pe A’ f + 30 m P 0 A P) + D 1 abc { 6 E A' PE A f + 


+ 6e' ,P e ,P ) } + G .a Al G . q ' ,p +3G .Al 0 1 ,p DO{e, ,f + e, ,p ) 

£) 0 ^ m 1 n n in yi v^i — t ^ -i m -i m * 


mi a amn nj 


mi amn n 
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+ 3G . A1 9’ 


p {DO..(ei ,f + 


mi amn n ab b 


) + Dl_ l __(2e’ f e’ f + 4 e ' P e ' f 


abc b c 


b c 


+ 2e ' p e ’ p ) }] dV 
b c 


( 3- 7c ) 


This is the third order postbuckling equilibrium equation, which 
may be written in the form 


0 = KO..Q’. ,,P + 3S ,, P2 1 + 3P3. 

i] ] i i 


( 3-7d) 


where 


P3. = /„G .[DO .{S' 2 (A Al, 6’ p 9 f + Al 

i V mi ab am bns n s amr b r 




• P 


+ Al ’e"e ,F ) + S’ (A Al, 0 X 0' + Al e£e ’ ,p + Al e' ,p Q L ) 

amr b r am bns n s amr b r amr b r' 


i .PJf 


+ (A Al, e ,P 0 ,,P + Al £7^0'’^ + Al Ei ,p 0 ,p ) 
am bns n s amr b r amr b r 


P 0 . i P 


Po.P- 


+ 2D1 , {S’ 2 (A £’ P *E f + Al £^£ f 0 ,P + 2A1 £' P £ f 0 f ) 

abc am b c amr b c r amr b c r 

+ S’ (A £^£ ’ ■' p + Al £' P £ ,P 0 f + 2A1 £^£ lP 0’ P ) 

am b c amr b c r amr be r 

+ (A £’ P E ,,P + A1 £' p e ,p 0 ,p ) } ]dV 
am b c amr b c r 

The term S' T occurs in (3-7d) after making the substitutions 

f • f 
0 ' = 0 S’ 

n n 

£ ■ *F §■ f 0 

0 ' ’ - © S' 1 + 0 S ' 

n n n 

e ,f = e f S’ 
a a 


£ ’ ' f = £ f S ’ ' + e f S' 2 
a a a 
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Equation (3-7d) may be solved for the postbuckling displacement 
second derivatives Q' * 1 ^ , and for the path second derivative S’ ? . 

3.3 Solution of Postbuckling Equilibrium Equations 

The postbuckling equilibrium equations (3-5d, 6d and 7d) may be 
solved sequentially to yield the displacement and load deriva- 
tives necessary for construction of the postbuckling path. These 
equations have been formulated here for the general case of an 
unsymmetric KO Jacobian matrix, and the effects of nonconservative 
loading are discussed in Appendix B. The solution of the second 
and higher order equations for the unsymmetric case present some 
practical difficulties, however. Therefore, in contrast to the 
general solution outlined in Section 2 for the fundamental equa- 
tions, the solution given here for the postbuckling equations 
will be presented for the case of a symmetric KO matrix. 


First Order (Bifurcation) Solution - The first order equation 
(3-5d) may be solved for the eigenvector Q’ p of postbuckling dis- 
placements, and for the critical value of the fundamental path 
parameter S. The initial step is to relate the unknown critical 
displacement increments AQ to the eigenvalue S, using the previously 
computed fundamental displacement derivatives: 


f • 1-2 

Q r = QtS + ±Q*S Z 

l l 2 l 


(3-8) 


In addition to the nonlinearity inherent in this ■ relat ion , the 

eigenequation is nonlinear for other reasons: 

1. Although increments in the displacement derivatives A0^ 

f 

and displacement s AQ are linearly proportional, the strain 
increments vary nonlinearly, i.e. 


Ae f = A* A0 f 
a am m 


1 f f 

+ ~ AO^Ae 

2 Al m n 

amn 


2 . 


2 f f 

There are A terms (Ae A0 


f f 

Ae Ae ) in the eigenequation 


3-10 



THE 


COMPANY 


due to consideration of the nonlinear material effects 
(effects of the Dl* matrix) . 

Because of these nonlinearities an eigensolution by direct itera- 
tion may not converge. Particular difficulty may be expected 
during the first few iterations, when the estimated eigenvector 

contains significant proportions of higher modes for which the 
f 

A0 at some locations in the structure could be much larger than 

the corresponding 0*. Also for such higher modes, the contribution 
2 2 

to AQ by S may be large and the A terms may be large relative 
to A terms. It is therefore necessary to solve first the linear 
eigen problem, obtained by dropping all nonlinear terms. When 
convergence has been achieved to within' a specified accuracy, 
iteration is continued with inclusion of all terms until conver- 
gence to the desired nonlinear eigensolution. 

Higher Order Solutions - With the critical point now defined by 

the critical value of S, the higher order postbuckling equations 

may be solved by formation and decomposition of the critical point 

Jacobian KQ. To accomplish the solution, a definition of the 

postbuckling path parameter R is required. We here follow the 

general approach of Mau and Gallagher (1972) and take R to be one 

of the postbuckling displacements, say Q^. In the PANES program, 

m is taken as the index of the largest component of the eigen- 
P 

vector Q . We then impose the requirements at every path point, 

R, that 

R' = 1 

R' ' .= R 1 ' ' = ... =0 (3-9) 

Although the matrix K0 is singular, this constraint of the mth 
degree of freedom allows the matrix to be decomposed. A somewhat 
different approach than this is suggested by Haftka et al. (1970) , 
involving the introduction of an additional constraint equation 
to make the K0 matrix effectively nonsingular. That approach 
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however increases the size of the matrix, and no real advantage 
is seen. The present approach retains the sparsity of KQ. 


At this point the eigenvector Q' P is again determined, using the 
constrained KO matrix. This is done to achieve consistency in 
the calculation of Q ,P and the higher order derivatives determined 
later, as well as for greater accuracy. In terms of the symbolic 
inverse KO 


0 = KO . . Q'. p , with Q ' p 
l] ] ' m 

Q ,p = KOT^ (0) 

1 13 


= 1 


( 3-10a ) 
( 3- 1 Ob) 


The second order equation is 


0 = 

Premultiplying by 
— 0, results in 


KO . .Q*. 
13 3 



,P + 2S'P2 1 + P2 2 , with Q ,,P = 0 (3-lla) 

3 i m 

and using the symmetry of KO with K0^_.Q^ p 


0 


O’. P K0 . . Q'. ,P + 2S ’ Q ! P P2 ?" + Q! P P2 2 
l i] ] 1111 


- 2S'Q! P P2^ 4 - Q ! P P2 2 (3-llb) 
1111 


which then gives 


S ,G = -Q'. P P2?/2Q’ P P2 ; l- 

l l l l 

and Q’. ,P = K0T 1 (-2S , P2l - P2 2 ) E -2S r Q2 1 !- - Q2 2 
1 1J j j 11 

The third order equation is 

0 = KO. .Q* ' ,P + 3 (S' ’P2 1 + P 3 . ) , with Q* 1 ,P = 0 
i] j l l m 

Premultiplying by Q’ P as before, results in 
0 = S’ ' Q! P P2 X + Q! P P3 . 


(3-llc) 
( 3-lld ) 


(3-12a) 


( 3-12b) 
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which then gives 


S' 1 = -Q! P P3 ./Q\ 

l 1 l i 


(3-12c) 


and QV ,P = KOT ^ (-3S 1 ' P2^ - 3P3 JL ) = -3(S“Q2* + 3Q3 i ) (3-12d) 


With the critical point derivatives of S and Q p known, the post- 
buckling path can be constructed. The variation of load para- 
meter A. with postbuckling path R, is defined by 


A 1 = A S' 

A 1 ' = AS" + A S ' 2 (3-13) 
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4.0 FINITE ELEMENT PROGRAM AND NONLINEAR SOLUTION ROUTINES 


4.1 General Program Characteristics 

The major goal of this research effort was the development of 
improved nonlinear solution techniques and subroutines. It was 
decided that the most effective way of accomplishing this goal 
was to develop a practical nonlinear finite element program, into 
which the various subroutines could be incorporated for checkout 
and verification. This has been accomplished, and the resulting 
finite element program has been given the acronym PANES (Program 
for Analysis of Nonlinear Equilibrium and stability) . Although 
PANES is a pilot program and is by no means a general structural 
analyzer (it utilizes only the constant strain triangle element, 
for 2-D in-plane or 3-D membrane analysis) it demonstrates all 
of the basic techniques and operations necessary for nonlinear 
analysis by more general types of finite elements. The program 
handles geometric nonlinearities and arbitrary nonlinear elastic 
materials (including very large strain cases), as well as certain 
forms of nonconservative loadings, i.e. those due to f ollower-force 
pressure loadings where the surfaces change in size and orienta- 
tion. Extension of the program to cases of inelastic materials 
is considered to be relatively straightforward, with the intro- 
duction of appropriate stress-strain constitutive relations. 

The present pilot version of PANES has three basic capabilities: 

1. Analysis of nonlinear structures without critical points, 
i.e. tracing of simple nonlinear equilibrium paths under 
a specified general (non-proportional) loading. Various 
solution techniques are available, with automatic 
calculation of load step sizes. 

2. Traversing of limit (maximum and minimum) type critical 
points, with automatic continuation of the load-path 
history. 
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3. Determination of bifurcation type critical points , and 

prediction of the postbuckling behavior and direction of 
travel, by means of path derivatives computed at the 
bifurcation point. Automatic switching from the funda- 
mental path to a postbuckling path, and continuation along 
the postbuckling path, have not yet been included. Thus 
the postbuckling capability should be regarded as still 
in a developmental stage. 

4.2 PANES Nonlinear Analysis Routines 

This section describes briefly the purpose and capabilities of 
the program subroutines, in the order in which they appear in the 
PANES program. Some of these are basic finite element routines, 
while others are specialized routines needed for generating and 
solving nonlinear structural equations. 

BIGS - Initializes program variables (serves as the calling sub- 
routine for most of the input data reading routines) . Also pro- 
vides problem restart capability by reading or writing the re- 
start tape. 

READRS - Reads data file numbers and start or restart codes. 

READQ - Reads problem identification title. Also reads incre- 
mental and iterative constants, such as those relating to the 
predictor and corrector types, the finite difference expansions 
for nonlinear materials, and the techniques for continuation of 
the equilibrium path through limit points. 

READ1 - Reads basic structural codes and values, and material 
constants for each material. 

READC - Reads user-defined special nodal coordinate systems. 
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READM - Reads mesh data, including nodal locations and coordinate 
system codes, and element data. 

READK - Reads codes to determine degrees of freedom with specified 
forces, displacements or constraints. 

READP - Reads two load reference curves which define distribution 
of the applied generalized nodal loads. 

READP R - Reads a pressure load reference curve which defines the 
distribution of the applied pressure loads (one intensity for 
each element) . 

READ I - Reads incremental load data, including the nodal load and 
pressure load curve factors for the total load at the end of 
each increment. 

HEAD - Writes a heading output for each load increment step, 
including load parameter value, number of iterations required and 
accuracy achieved. 

QUTLIM - Predicts and outputs limit point values for the load 
parameter, and nodal forces and displacements. 

OUTPQ - Outputs nodal forces and displacements. 

QUTE - Outputs element strains. 

QFILL - Uses vector of system-level nodal displacements Q to form 
vector of element-level nodal displacements q for an element. 

PFILL - Takes vector of element-level nodal forces p and adds 
them to system-level force vector P. 
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DFILL - Uses element nodal displacement vector q to compute 
vector of displacement derivatives 8 within the element. 

EFILL - Uses element displacement derivatives vector 0 to compute 
vector of strains £ within the element. 

AFILL - Uses element displacement derivatives 0 to form Lagrangian 
AO or A1 matrix within the element. 


GFILL - Uses element displacement functions to form the 0-q 
transformation matrix G. 


MTRAN - Matrix transformation routine, which performs operations 
of the type K . . = D .B .B.. for given D and B matrices. 

1 J a.D a.1 Dj 


ROTQ - Transforms element displacements or forces, from either 
nodal to element or element to nodal coordinate system. 


ROTK - Transforms element stiffness matrix from element to nodal 
coordinate system. 

FORCE - Computes internal nodal generalized forces corresponding 
to given nodal displacements. 


PFORCE - Computes applied nodal force loadings, using nodal load 
reference curves and corresponding load factors. 

EFQ RCE - Computes nodal forces due to applied pressure loadings, 
using pressure reference curve and factor, and the current area 
and orientation of each element (determined from geometry and 
current displacements) . 

ERCQMP - Computes and outputs error norm for each residual force 
iteration, using applied (external) forces and computed (internal) 
forces . 
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STRAIN - Computes strains for each element using geometry and 
nodal displacements. 

ENERGY - Evaluates the strain energy density for an element at 
given strain components. This routine will in general be a user 
supplied routine based on the types of materials being used in 
the structure. 


EVAL - Performs the function (strain energy) evaluations at the 
current strain state, and at the required adjacent "perturbed" 
states necessary to establish a strain energy expansion in terms 
of incremental strains. EVAL calls the STRAIN routine for 
evaluation, and defines the evaluation points by using the user- 
specified finite difference sizes. A first, second or third 
order expansion may be specified, and the corresponding function 
evaluations are returned in the form of a vector. 


U2F0RM - Forms coefficients for a general second order Taylor 
series expansion, using function values provided by EVAL. Used 
to develop the strain-energy related tensors a ^ and DO^ for a 
material at current deformation state. 


U3F0RM - Similar to U2F0RM, but forms coefficients for a general 

third order expansion. Develops the tensors a. , DO. . and Dl. . , . 

i i j 1 jk 

UFILL - Calling routine which calls either U2F0RM or U3F0RM, 
depending on desired expansion order. 

CFORM - Forms the contribution to the Jacobian stiffness matrix 
due to the nonconservative pressure loadings. 


GENER8 - Generates the elemental Jacobian matrix using the 

current geometry and the material tensors a. and DO . . . Also 

r 1 3 

adds contributions from CFORM if loading is nonconservative. 
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USUMl - Performs a summing operation between a second or third 
order tensor function and its vector argument, to give a vector. 

USUM21 - Performs a summing operation between a third order 
tensor function and its two (different) vector arguments, to 
give a vector. 

P1C0MP - Computes the nonlinear load term PI*, required in gen- 
erating the second order fundamental equilibrium equations. 

HATES - Computes the first and second order fundamental load 
parameter and displacement rates. 

STEP - Provides automatic calculation of a fundamental path load 
step size, and techniques for traversing limit points. 

EIGEN1 - Computes the psuedo force term Pl^, for use in the 
inverse power iteration eigensolution process. 

EIGEN - Eigensolution routine for inverse power iteration. Calls 
EIGENl routine. 

PQST2 - Computes the second order postbuckling psuedo force terms 

1 2 
P2 or P2 . 

PQST3 - Computes the third order postbuckling psuedo force term 
P 3 . 


PRATES - Computes the first and second order postbuckling load 
and displacement rates, and third order displacement rate, at 
the bifurcation point. 

VDQT, VCROSS, VLENTH, WORM - Vector subroutines for computing 
dot product, cross product, length, and normalizing a vector, 
respectively . 
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MERGE - Merges elemental Jacobians into system Jacobian, with 
provision for constrained degrees of freedom. Forms general 
unsymmetric Jacobian matrix. 

DECOMP - Decomposes unsymmetric Jacobian using Gauss wavefront 
type procedure. Takes advantage of sparsity but uses total 
square matrix for storage without packing or external storage 
devises. (This is a small pilot version decomposition routine.) 

SOLVE - Performs forward and backward substitution for unsymmetric 
Jacobian matrix to provide solution vectors. 
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4.3 Summary of PANES Input Data 

A pictorial of the PANES input deck is shown in Figure 4-1. The 
input data consists of the following three general types: 

Data on the usual card file. These are 
data which are needed for each start or 
restart . 

Data on File I. These are basic structural 
data for a given problem, such as material 
properties and mesh data. They are the 
same for all load increments and are 
needed only when starting. 

Data on File II. File II is not used in 
the current PANES version. It is provided 
for possible future use as a file of 
incremental data (e.g. additional nodal 
and thermal load data) . 

The data included on each file are described below. Formats are 
consistent with FORTRAN IV conventions. 

C-l. Start-restart code and data file numbers: 

a. "START" if new problem, or "RESTART" if restarting. 

b. If starting give unit number for file I. 

c. Unit number for file II (need not be given) . 

d. Unit number for output file (e.g. printer). 


Type C: 


Type I: 


Type II: 
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1-5 ELEMENT DEFINITIONS 



C-7 FINAL BLANK CARD 


C-6 MECHANICAL LOAD DATA 


1-8 PRESSURE LOAD 

REFERENC E VECTOR 

NODAL LOAD 
REFERENCE VECTORS 


6 FORCE-DISPLACEMENT 
CONSTRAINT SPECIFICATIONS 


NODE DEFINITIONS 


SPECIAL COORDINATES 


MATERIAL PROPERTIES 

BASIC STRUCTURE 
DEFINITION 

C-5 CONTROL CONSTANTS 

PERTUBATION 
DIFFERENCE SIZES 

C-3 CONTROL CONS TA NTS 

C-2 PROBLEM I.D. 


C-1 START- RESTART 

CODE AND FILE NUMBERS 



J/ 


NOTES: 

C IS CARD FILE 
II ARE CARD OR TAPE FILES 

DATA ON FILE I IS USED ONLY WHEN 
STARTING A NEW PROBLEM. 

DATA ON FILE C IS USED WHEN STARTING 
OR RESTARTING 

FILE II IS RESERVED FOR POSSIBLE 
FUTURE USE 


Figure 4- 1: PA NES INPU T DECK SETUP 
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e. If restarting give load increment number from the 
end of which a restart is to be made. 

f. If restarting give input restart-tape unit number. 

g. If data is to be saved for future restart give out- 
put restart-tape unit number. 

Format <A4 , 6X, 615) 

C-2. Problem I.D. title. 

Format (20A4) . 

03. Program control constants (any constant left blank is 
assigned a default value) : 

a. Specified order of material incremental stress-strain 
expansion to be used (2 is exact for linear material, 
maximum order is 3). Default order is 3. 

b. Solution predictor type. Type 1 = 1st order, 

Type 2 = 2nd order. 

Default type = 2. 

c. Maximum number of Jacobian updates per load incre- 
ment step. 

Default = 0. 

d. Maximum number of residual force iterations per 
Jacobian update. 

Default = 5. 
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e. Maximum allowable residual force error norm. 

Default = 1 x 10 ^ . 

Format (4110, F10.0) 

C-4. Perturbation difference magnitudes for evaluating strain 
energy . 

a. Difference for computing stiffnesses. 

Default = 1 x 10 

b. Difference for computing forces. 

- 8 

Default = 1 x 10 
Format (2F10.0) 

C-5. Program control constants 

a. Number of increment subdivisions to be performed as 
load nears a limit value. Default = 3. 

b. Ratio of limit load to load increment values at which 
limit point is to be traversed. Default = 0.1. 

c. Increment step size limitation, computed from slope 
of load parameter versus path parameter curve, and 
equal to change in slope divided by average slope. 

Default = 0.5. 
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d. Maximum load increment step size (used especially 
in unloading) , and defined as a factor times the 
specified load increment. 

Default = 1.0. 

e. Maximum fraction of current load increment by which 
load is allowed to reduce after passing a maximum 
limit point. 

Format (110, 4F10.0) 

1-1. Basic structure definition 

a. Code for element pressure loads. Code 0 = no 
pressures, Code 1 = pressures. Default code is 0. 

b. Degree of freedom per node (2 or 3) . No default 
value . 

c. Default thickness for all elements. 

Format (2110, F10.0) 

1-2. Material property definitions. For each material give 

material I.D. number, and 2 material constants for use 

by the strain energy evaluation routine. 

Format (110, 2F10.0) 

Blank card after data for last material. 
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*1-3. For each special Cartesian coordinate system: the 

identification number (integer 2) and counter-clockwise 
angle (degrees) from basic system X-axis to special system 
x-axis . 

‘ Format (110, F10.0) 

Blank card after last coordinate system* 

1-4. For each node: Node number;, identification number of 

coordinate system to define location; X, Y and Z (or R, 

8 and Z) ; identification number of coordinate system to 
define displacements. (Coordinate I.D. number 0 implies 
the basic Cartesian system, 1 implies the basic cylindri- 
cal system) . 

Format (215, 3F10.0, 15) 

Blank card after last node. 

1-5. For each element; element number, material number, thick- 
ness, three node numbers (counter-clockwise order). 

If thickness is left blank, default value from I-lc is 
used. 

Format (215, F10.0, 315) 

Blank card after last element. 

1-6. For each DOF with specified displacement or constraint: 

If specified displacement, give node number and component 
(1, 2 or 3) number; 
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If specified constraint, give node and component number, 
and independent node and component to which DOF is con- 
strained (independent component number is + for specified 
force, - for specified displacement) . User has option of 
from 1 to 4 values per card. 

Format (4(415)) 

1-7. Nodal load reference vectors. 

Number of vectors (for current program version must be 2) 
Format (110) 

For each nonzero component of load vector: 

node number, component number (1 = X or R, 2=Yor6, 

3 = Z) , force or displacement value. User has option of 
from 1 to 4 values per card. 

Format (4(215, F10.0)) 

Blank card after last value of each vector. 

1-8. Pressure Load Reference Vector. (Input only if pressure 
code in data item 1-1 is nonzero. 

Number of vectors (for current program version must be 1 ) 
Format (110) 

For each nonzero component of pressure load vector: 
element number, pressure intensity. User has option 
of from 1 to 4 values per card. 

Format (4(110, F10.0)) 

Blank card after last value of vector. 
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C-6. Incremental load data 

Number of load increments 
Format (110) 

For each load increment: solution predictor type (if 

left blank, value from C-3b is used) , the cumulative 
factors to be applied to the nodal load reference 
vectors, pressure value for all elements. Pressure is 
applied in element positive z-coordinate direction. 

Format (110, 3F10.0) . 

C-7. Final blank card. 

Problems may be run consecutively (first data item for 
each problem follows immediately after last item of pre- 
ceding problem) • Final blank card indicates that all 
problems have been read. 

4.4 Summary of PANES Output 

The description of PANES output is conveniently divided into two 
parts. The first is primarily an echo check of the input data, 
and the second part consists of output results for each load 
increment . 

4.4.1 Echo Check of Input Data 

Initial Output - The first page of PANES output for a problem is 
essentially an echo check of input items C-l to C-5, 1-1 and 
1-2. An indication is given as to whether the problem is being 
started or restarted. If it is restarted then the previous 
increment number is given, from the end of which the restart is 
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progressing. Next the problem I.D. title is printed, followed 
by the various control constants and finite difference magni- 
tudes (DFE and DFF) . The limit point related control constants 
(MJUMP , JUMPR, SLOPED, FLAMAX and LAMIN) are then printed. Fin- 
ally the basic structural quantities from 1-1, and the material 
property constants from 1-2 are printed. 

Special Coordinate Systems - These are the user-defined direction 
(special Cartesian) systems of input data item 1-3. Quantities 
printed are the system number, and counter-clockwise angle (in 
degrees) from the basic X axis to the special-system x axis. 

Node Definitions - The information given in input item 1-4 is 
printed. Values are the node number, location coordinate system 
number (0 = basic Cartesian, 1 = basic cylindrical) , X or R 
coordinate, Y or 0 (degrees) coordinate, Z coordinate, direction 
coordinate system number (0 = basic Cartesian, 1 = basic 
cylindrical, >1 = number of special user defined system) . 

Element Definitions - The information given in input item 1-5 
is printed. Values are the element number, material I.D. number, 
element thickness, the three element node numbers in counter- 
clockwise order, and the computed element area. 

Force- Pis placement-constraint Prescriptions - These are the codes 
given in input data item 1-6. Quantities printed are the 
dependent node and component number, and independent node and 
component number. (If specified displacement, no independent 
numbers are given) . 

Nodal Load Reference Vectors - For each input component of the 
two load vectors from input item 1-7, the node number, component 
number, and load value are printed. 
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Pressure Load Reference Vector - For each input component of the 
pressure load vector from input item 1-8, the element number and 
pressure intensity are printed. 

Incremental Load Data - Quantities related to input data item 
C- 6 are printed. First is printed the number of load increments 
to be run. Then for each increment is given the increment num- 
ber, input or default value for the predictor type, and factors 
to be applied to the two nodal load reference vectors and the 
pressure load reference vector. 

4.4.2 Results for Each Load Increment 

Interative Error Values - An error norm computed at the end of 
each iteration is printed. The error norm is obtained by a 
ratio of unbalanced (residual) forces to total forces. 

Increment Heading - The load increment and load step numbers 
are printed, along with the load increment and load step values 
at the end of the step. Following this are the nodal load 
reference vector factors, the element pressure vector factor, 
the predictor type for the increment, the maximum allowable 
number of Jacobian updates and the number performed during this 
load step, the maximum allowable number of iterations per update 
and the number performed since the last update, and the maximum 
allowable error norm and the error norm actually achieved. 

Forces and Displacements - The cumulative nodal displacements 
and corresponding internal forces are output. The node number 
is printed, followed by the U, V and W (or R, 9, Z) components 
of force and displacement. 

Strains - The cumulative element strains are output. The 
element number is printed, followed by the XX, YY, and XY 
strains in the element coordinate system. 
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Limit Point Output - When a limit point is traversed, the pre- 
dicted value of the incremental limit load parameter is output, 
followed by the predicted limit forces and displacements, and 
strains . 

Bifurcation Point Output - When an eigenvalue solution is per- 
formed to determine a critical point, the eigenvalue computed 
for each inverse power iteration is printed, along with the 
location of the maximum value in the eigenvector. 

Decomposition Output - Whenever the Gauss decomposition routine 
is called, it prints the value (sign and base 10 logarithm) of 
the Jacobian stiffness determinant. 
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5.0 ILLUSTRATIVE PROBLEMS 

Four example problems problems are presented here in order to 
illustrate various aspects of nonlinear equilibrium and stability 
theory, and to demonstrate use of the developed nonlinear sub- 
routines and the PANES finite element program. Section 5.1 
describes a snap-through truss problem with geometric nonlin- 
earity and a maximum and a minimum limit point. Section 5.2 
describes a simple pressure membrane with nonconservative type 
loading (changing load area), resulting in a maximum limit point. 
The toroidal membrane in Section 5.3 is a fairly difficult 
problem, involving nonlinear (Mooney) material with follower- 
force loads and changing load areas. It results in very large 
displacements and strains, and a maximum and a minimum limit 
point. This problem demonstrates some unique capabilities of 
the PANES program. Finally, Section 5.4 describes a simple 
bif urcation/postbuckling model, with asymmetric behavior. 

5. 1 Snap-Through Truss 

This is a problem similar to that used as a test case by several 
researchers in nonlinear structural analysis, e.g., Haisler 
et al. (1971) . The system consists of a single inclined bar 
(or one half of a symmetric two-member truss) as shown in 
Figure 5-1. The bar has length 1.0 with axial stiffness 

7 

AE - 2x10 (Hookean material) , is inclined initially at a 
slope of 1:100, and is subjected to a vertical end load P. The 
PANES program idealization of this system used two constant 

O 

strain triangle elements, with modulas E = 2x10 and thickness 
- 0.1. Node 4 was constrained to have vertical displacement 
equal to that at node 2, so that a system with essentially one 
degree of freedom (vertical displacement Q) is obtained. 

The expression for the axial strain, e, is given by 
e = -. 01Q + 0. 5Q 2 
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and stress, a, is given by 

a = -2,000 , OOOQ + 100 , 000 , 000Q 2 {5. 1-lb) 

Thus the axial force is —200, OOOQ + 10 , 000 , OOOQ 2 , from which it 
may by shown that the vertical applied force, P, is given by the 
following basic equilibrium equation. 

P =• 2000Q - 300 , 00 OQ 2 + 10, 000 , OOOQ 3 (5.1-2) 

Differentiating with respect to Q, and evaluating at a reference 
equilibrium configuration (Q*, P*) , gives the first order equi- 
librium equation 

P* = 20 0 OQ* - 600 , 000Q*Q* + 30 , 000 , OOOQ* 2 Q* (5.1-3a) 


or 


P* = K0*Q* ( 5 . 1- 3b) 

where the Jacobian stiffness is 

K0* = 2000 - 600, OOOQ* + 30 , 0 00 , OOOQ* 2 

A second differentiation and evaluation of equation (5.1—2) 
results in the second order equilibrium equation 

P* = K0*Q* + PI* (5.1-4) 

where the psuedo force PI is defined by 

PI* = 600, OOOQ* 2 + 60 ,000 ,OOOQ*Q* 2 

Using the equilibrium equations (5.1-3) and (5.1-4), the P-Q 
path history can be computed by various incremental and itera- 
tive approaches, including identification of limit points. 
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(Of course for this simple one-degree-of-f reedom system, the 
path can be obtained immediately from the basic equilibrium 
equation (5.1-2)). The P-Q path history is shown in Figure 5-1. 
The PANES program solution was accomplished using six user- 
specified load increments (P = 1.0, 2.0, 3.0, 4.0, 5.0, 10.0), 
although about 30 additional load steps were selected automat- 
ically (mostly to achieve the desired accuracy in locating and 
traversing the limit point regions). Most load steps required 
only one or two residual force iterations, with us$ of a second 
order predictor. 

5.2 Simple Pressure Membrane 

One of the simplest problems which. can be used to illustrate 
some of the effects of nonconservative loading in stability 
analysis is the simple pressure membrane shown in Figure 5-2. 

The system consists of a flat membrane 2.0 wide by 1.0 high 
with unit thickness, and subjected to a uniform pressure intens- 
ity \ on one side. The ends of the membrane slide along the 
45° supports, and are constrained to move together equally in 
the X direction. This gives a single degree-of-f reedom system, 
with X-direction force P and displacement Q, and the membrane 
undergoes a uniform stretching in the Y direction. The solution 
was verified by a finite element analysis using the PANES 
program. The finite element mesh consisted of the two constant 
strain triangle elements shown in Figure 5-2, with X-direction 
displacements at nodes 2-4 constrained to equal the displacement 
at node 1. Zero displacements were enforced in the Z direction. 

Considering large displacement and large strain effects, the 
stretch in the Y direction is denoted by X, and is equal to 
the change in length divided by original length. The strain- 
energy density U, measured per unit undeformed volume, is taken 
to be defined by the function 

U = C 1 (X-1) 2 + C 2 (X-1) 4 = C 1 Q 2 + C 2 Q 4 (5.2-1) 
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Note that we could define a Lagrangian strain £ , and stress- 
like quantity o , by 

e = i(X 2 -l) 

« - n -- * “= 2 a 3 

However, this is not necessary in the present problem, for 
which the force can be derived directly from the strain-energy 
function. 

The basic equilibrium equation for the system is written using 
the equivalence of external force (defined in terms of the 
pressure loading (i ) and internal force (defined as the deriva- 
tive of strain energy with respect to displacement Q) : 

P = 2 A (1+Q) = 2(2C X Q + 4C 2 Q 3 ) (5.2-2) 

Choosing specific values for the material constants C = 10 
an ^ C 2 = -1, the basic equilibrium equation may be written as 

A (1+Q) = 20Q - 4Q 3 (5.2-3) 

Differentiating equation (5.2-3) provides the first order 
equilibrium equation 

A (1+Q) + A Q = 20Q - 12Q 2 Q <5.2-4a) 

or at an equilibrium configuration (\*, Q*) we can write 

A* = ((20 - 12Q* 2 - A * ) / ( 1+Q* ) ) Q* (5 . 2-4b) 
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From this equation it can be seen that the value of a Jacobian 
stiffness KO*, relating A. * with Q* / is 

KO* = (20 - 12Q* 2 - A * ) / ( 1+Q* ) (5.2-4c) 

(For simplicity we have here defined the Jacobian relative to 
A rather than P) . 

Differentiating equation (5.2—3) a second time gives the second 
order equilibrium equation, as 

A (1+Q) + 2\Q +/VQ = 20Q - 24QQ 2 - 12Q 2 Q (5.2-5a) 

or at an equilibrium configuration we can write 

A * = K0*Q* + PI* (5.2— 5b) 

where the psuedo force PI is given by 

PI* = (-24Q*Q* 2 - 2 A *Q* ) / ( 1+Q* ) <5.2-5c) 

To illustrate the actual behavior of the system, we now choose Q 
as the path parameter, and without loss of generality specify 
at every point the conditions Q = 1 and Q = 0. To aid in deter- 
mination of a limit type critical point, we have the condition 
A * = 0 at the limit point. Using this condition, and solving 
equation (5.2-4b) with the use of (5.2-3), we find a limit point 
at <A * = 8.0, Q* = 1.0). The entire A -Q path history may be 
determined by various incremental and iterative predictor- 
corrector schemes, and is shown in Figure 5-2. The PANES 
program solution to this problem used a second-order predictor 
with residual- force corrective iterations. 
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5.3 Toroidal Membrane 

The problem illustrated here is a toroidal membrane under 
internal pressure, shown in Figure 5-3. This structure exhibits 
a highly nonlinear type of behavior with very large displace- 
ments and strains, and both a maximum and a minimum limit point. 
The second-order predictor was employed in a PANES program solu- 
tion, along with residual-force corrective iterations to achieve 
equilibrium at each load step. Both the predictor and corrector 
incorporated all changing load area and follower-force effects. 
(This gave an unsymmetric KO* matrix, whose decomposition was 
obtained by the Gauss wavefront procedure. It was apparent that 
the unsymmetric effects became large enough that their inclusion 
was necessary for convergence) . 

The torus was assumed to be of Mooney material with constants 

— and C 2 = 20, and was analyzed using plane-stress membrane 
elements. Geometry and displacement components are defined in 
Figure 5-3. The torus has major radius 10, minor radius 2, and 
thickness .05. Cylindrical coordinates were employed to model 
a wedge-shaped segment of the major circumference, of from 2 to 
10 degrees arc. Constraints were employed in the radial and 
vertical directions in order to equalize corresponding displace- 
ments along the two sides of the wedge. 

Table 5-1 summarizes computed values of key displacements for 
the user-defined (input) pressure increments and the computed 
limit pressures, obtained with three different meshes. (N denotes 
the number of subdivisions over one half of the minor circumfer- 
ence) . The indicated convergence with mesh refinement is of the 
kind to be expected, with finer meshes giving a more flexible 
structure, and resulting generally in somewhat larger displace- 
ments and lower limit point values. Computer run times ranged 
from 1 minute (IBM central processor time) for mesh N = 4, to 
7 minutes for mesh N — 12. These times should be regarded in a 
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qualitative fashion only, since for example much of the time 
was spent in solving the linear unsymmetric stiffness equations 
and this time could be reduced by use of a production type 
equation solver. 

More detailed results for the fine mesh (N - 12) are shown in 
Table 5-2. There the data columns represent respectively the 
pressure, load increment number (user-specified increment), 
step number (where the PANES program automatically divided the 
specified increment into a number of smaller steps) , number of 
res idual- force type iterations performed in order to achieve 
the required accuracy, and values of the radial and vertical 
displacements at key points. Figure 5-3 gives very interesting 
plots of two key load— displacement paths, and indicates that no 
difficulties were caused by a displacement which followed an 
extremely irregular "doubling back" type of path, including 
sharp curvature sections. The basic results for this problem 
are corroborated by another solution to the same problem by 
Key (1974), who developed a finite element program with a Newton 
Raphson solution technique, and obtained results for pressure 
levels up to near the first limit point. 

It may be of use for comparison/test purposes to mention corre- 
sponding results obtained by increasing the major radius from 
10 to 12. Maximum and minimum limit points occurred at pressures, 
h, of 4.355 and 4.125, respectively, while maximum displacements 
(at h = 5.0) increased roughly 20 percent. 
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NODAL DISPLACEMENTS, U AND W 

Figure 5-3: TORUS SOLUTION RESUL TS 
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TABLE 5-1: TORUS RESULTS (MESH/CONVERGENCE CHARACTERISTICS) 


h 

U A 

U B 

W B 

u c 

.10 

-.0065 

.0015 

.0120 

.0076 

.50 

-.0399 

.0114 

.0529 

.0484 

1.0 

-.0827 

.0315 

.1080 

.1130 

2.0 

-.162 

.109 

.243 

.301 

3.0 

-.216 

.281 

.436 

.631 

4.0 

-.168 

.732 

.784 

1.371 

4.5 

.057 

1.438 

1.203 

2.436 

ti 4.688 

.653 

2.891 

1.959 

4.543 

ft 4.458 

2.032 

10.056 

6.787 

15.551 

5 . 0 . 

- 3.142 

22.203 

20.007 

35.578 


.10 

-.0062 

.0013 

.0135 

.0067 

.50 

-.0414 

.0112 

.0571 

.0489 

1.0 

-.0870 

.0323 

.1157 

.1169 

2.0 

-.171 

.117 

.261 

. 320 

3.0 

-.223 

.316 

.476 

.693 

4.0 

-.129 

.908 

.904 

1.640 

tt 4.473 

.641 

2.892 

1.967 

4.531 

tt 4.244 

1.946 

10.374 

7.039 

15.951 

4.5 

- 1.665 

19.076 

15.972 . 

29.895 

5.0 

- 4.746 

27.973 

24.446 

42.678 


. 10 

-.0065 

.0013 

.0136 

.0070 

.50 

-.0431 

.0115 

.0584 

.0505 

1.0 

-.0902 

.0333 

.1189 

.1210 

2.0 

-.176 

.123 

.270 

.334 ' 

3.0 

-.226 

.340 

.499 

.736 

4.0 

-.088 

1.050 

.991 

1.853 

tt 4.357 

.636 

2.889 

1.964 

4.518 

tt 4.127 

1.903 

10.607 

7.199 

16.239 

4.5 

- 2.895 

22.706 

18.904 

34.581 

5.0 

- 5.510 

32.327 

27.005 

47.404 



N = 6 


N = 12 


tt Limit points 
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TABLE 5-2: TORUS INCREMENTAL RESULTS (N = 12) 



h 

INCR. STEP 

ITER. 

U A 

U B 

W B 

u c 


.00625 

1 1 

7 

-.00026 

.00004 

.00121 

.00028 

t 

.10 

2 

6 

-.0065 

.0013 

.0136 

.0070 

t 

.50 

2 1 

3 

-.0431 

.0115 

.0584 

. 0505 

t 

1.0 

3 1 

2 

-.0902 

.0333 

.1189 

.1210 


1.5 

4 1 

2 

-.135 

.069 

.188 

.213 

t 

2.0 

2 

2 

-.176 

.123 

.270 

.334 


2.5 

5 1 

2 

-.209 

.207 

.370 

.499 


2.75 

5 2 

1 

-.220 

.266 

.430 

.606 

t 

3. 0 

3 

1 

-.226 

.340 

.499 

.736 


3.360 

6 1 

2 

-.219 

.490 

.621 

.986 


3.632 

2 

2 

-.193 

.658 

.742 

1.254 


3.816 

3 

1 

-.155 

.819 

.849 

1.503 


3.908 

4 

1 

-.127 

.922 

.914 

1.661 

t 

4.0 

5 

1 

-.088 

1.050 

.991 

1.853 


4.108 

7 1 

1 

-.023 

1.248 

1.106 

2.147 


4.187 

2 

1 

.049 

1.446 

1.216 

2.439 


4.243 

3 

' 1 

.123 

1.641 

1.322 

2.723 


4.284 

4 

1 

.197 

1 .829 

1.421 

2.995 


4.309 

5 

1 

.268 

2.005 

1.513 

3.250 


4.327 

6 

1 

.335 

2.167 

1.596 

3.483 


4.339 

7 

1 

.395 

2.313 

1.671 

3.692 


4.346 

8 

1 

.448 

2.441 

1.736 

3,875 


4.351 

9 

1 

.494 

2.549 

1.791 

4.031 


4.354 

10 

0 

.532 

2.640 

1.837 

4.161 

ti- 

4.357 

- 

- 

.636 

2.889 

1.964 

4.518 


4.354 

11 

6 

.795 

3.273 

2.160 

5.067 


4.329 

12 

2 

1.094 

4.018 

2.546 

6.137 


4.279 

13 

2 

1.472 

5.063 

3.117 

7.654 


4.229 

14 

1 

1.784 

6.117 

3.740 

9.210 


4.204 

15 

1 

1,921 

6.715 

4.121 

10.108 


4.179 

16 

1 

2.040 

7.413 

4.595 

11.172 


4.158 

17 

1 

2.110 

8.143 

5.125 

12.302 


4.145 

18 

1 

2.124 

8.725 

5.577 

13.218 


4.137 

19 

1 

2.107 

9.194 

5.958 

13.962 


4.133 

20 

1 

2.076 

9.568 

6.272 

14.559 


4.130 

21 

0 

2 . 040 

9.860 

6.526 

15.029 

ff 

4. 127 

- 

- 

1.903 

10.607 

7.199 

16.239 


4.130 

22 

5 

1.659 

11.544 

8.083 

17.760 


4.153 

23 

' 2 

1 . 036 

13.257 

9.785 

20.534 


4,327 

24 

3 

-1.387 

18.766 

15.270 

28.987 

t 

4.5 

25 

2 

-2.895 

22.706 

18.904 

34.581 

t 

5.0 

8 1 

5 

-5.510 

32.327 

27.005 

47.404 


t Input pressure loads. Intermediate pressures were selected automatically 
•by the program. 

ft Limit points. 
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5.4 Asymmetric Buckling Model 


The problem illustrated here is that used by several investi— 
gators of bifurcation and postbuckling behavior, e.g. , Thompson 
(1970) . The model consists of a spring and rigid bar as shown 
in Figure 5-4. The asymmetric postbuckling behavior is due to 
the decreasing resisting moment arm of the spring force about 
point 0, as the top of the bar deflects to the right. 

The conservative load is applied vertically to the top of the 
bar. The spring is initially inclined at 45 degrees, and has 
constant stiffness K. This is a single degree of freedom 
system, defined by the horizontal displacement Q. The vertical 
compo nent of distance from 0 to B at any time is equal to 
/l-Q , and the horizontal distance from A to B is 1+Q, from 
which the length of the spring is found to be /~2 (1+Q) . The 
moment arm of the spring force about point 0 is then determined 
as /X- (1+Q) /2 . Equating the external applied and internal 
res is ting ^moments gives the basic postbuckling equilibrium 
equation for the system as 

Q = K { / 2 ( 1+Q) - i T~2) / 1- (1+Q) /2 - K( /l+Q - 1) / 1-~Q (5.4-la 

or 


K 


K(/l-Q 2 


/ I ^qY/q 


(5.4-lb) 


Evaluating A. from this expression using a small finite difference 
in Q, gives the critical load value as 



(5.4-2) 
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Similarly a second-order finite difference evaluation gives the 
critical asymmetric load rate as 


3A_ 
3 Q 



( 5 . 4 - 3 ) 


The location of the critical (bifurcation) point was verified 
by a PANES program solution. 



(a) PREBUCKLING GEOMETRY (b) POSTBUCKLING GEOMETRY 

Figure 5-4: ASYMMETRIC BUCKLING MODEL 
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6.0 CONCLUSIONS AND RECOMMENDATIONS 

Conclusions - The present work provides improved techniques for 
solution of structures with material and geometric nonlinear- 
ities. FORTRAN subroutines have been developed, and incor- 
porated into a new nonlinear finite-element program called 
PANES (Progr am for Analysis of Nonlinear Equilibrium and 
Stability). A new approach is developed for representing an 
arbitrary nonlinear material in terms of a finite-difference 
generated stress-strain expansion, and is considered to be of 
major significance. This approach leads to formulation of 
perturbation— type equilibrium equations of any desired order, 
and is effective even for numerically integrated finite elements 
with large degrees of freedom. The formulation should provide 
a unifying basis for design of many nonlinear structural analysis 
programs. 

The present PANES program is a pilot version, capable of analyz- 
ing problems with large strain and arbitrary nonlinear elastic 
materials, and provides membrane finite elements (two or three 
degrees of freedom per node) with nonconservative pressure 
loading. It includes automated techniques which have been 
developed for selection of load step sizes, and for locating 
and traversing maximum and minimum limit-type critical points. 
Subroutines are also included for location of bifurcation— type 
critical points on a general nonlinear prebuckling path, and 
for determining the symmetric or asymmetric postbuckling 
behavior. The postbuckling capabilities have not yet been 
completely automated and tested, however, and should be regarded 
as being in a developmental stage. 

Recommendations - The PANES program solution routines provide 
a significant pilot capability for analysis of structures with 
highly nonlinear material and geometric effects, and should now 
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be extended and evaluated for a wider class of practical 

structures. Listed below are recommendations for future work. 

1. The first priority should be given to improving and 
verifying the PANES postbuckling subroutines. This 
effort should include the generalization of program logic 
to accept additional types of finite elements, and in 
particular the addition of simple bar elements to the 
program. These elements wiil simplify the study of 
postbuckling results, and are desireable for initial 
verification because of the somewhat complex nature of 
the new nonlinear material postbuckling theory. 

Automated techniques should be incorporated for branching 
to the postbuckling path, similar to the existing PANES 
techniques for traversing limit points. 

2. The program should be extended to incorporate a number 
of higher-order finite elements. Important candidate 
elements are plates, shells, and isoparametric-solid 
elements. Such elements will greatly extend the analysis 
capabilities of the program, and also importantly demon- 
strate the effectiveness of the new nonlinear solution 
techniques for elements which are numerically integrated 
and have large degrees of freedom. 

3. PANES now handles an arbitrary nonlinear elastic material, 
by use of the proper material strain-energy definition. 
Formation of the stress-strain expansion relation should 
be generalized to cases of inelastic material, i.e., those 
materials for which a strain-energy function does not 
exist. The concept of this generalization is not difficult, 
but some study is required to develop an effective algor- 
ithm for forming the higher-order stress-strain expansion 
terms. 

4. A number of largely theoretical improvements should be 
studied. These include the treatment of multiple and 
closely- spaced critical points (as often occur in an 
optimally designed light-weight structure) , and the method 
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of postbuckling behavior solution for cases of an 
unsymmetric Jacobian stiffness matrix. Incorporation of 
a third-order fundamental path predictor also appears 
desireable, especially for use in prediction of bifurcation- 
type critical points. The nonlinear eigenvalue solution 
for these points is somewhat costly, and would have to 
be performed less often with the higher-order predictor. 

The program size capability should be increased to handle 
the expected range of practical nonlinear structural 
problems. This involves some reorganization of the main 
program logic, and the addition of a production-type 
linear equation solver such as the Gauss-wavefront routines 
used in the BOPACE elastic-plastic-creep program (Vos and 
Armstrong (1973)). 
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APPENDIX A: FINITE DIFFERENCE EXPANSIONS 

For the type of nonlinear solution techniques utilized in this 
work, it is necessary to generate the Jacobian stiffness matrix 
as well as various force-type vectors associated with residuals 
and nonlinear predictor quantities . In the general case involving 
nonlinear materials, these quantities cannot be effectively deter- 
mined by an explicit process, and must be generated numerically. 
The numerical representation may be based on a direct expansion 
of the generalized forces in terms of displacements (e.g. the 
method for Jacobian generation used by Oden and Key (1970)), or, 
as in the approach used here, it may be based on an expansion of 
stresses in terms of strains. In any case the procedure requires 
the expansion of a dependent function of several independent 
variables, about a known reference point. 

An effective expansion procedure has been developed in the present 
work by use of a Taylor series, in which the expansion coeffi- 
cients (partial derivatives) are evaluated using finite differ- 
ence expressions. After a study of various alternatives, it was 
concluded that the most efficient scheme involves forward differ- 
ences rather than central differences, because the forward differ- 
ences result in simple formulas and require a minimum number of 
function evaluations. In addition, if an approximate solution 
path increment is known, i.e. if the approximate increments which 
will occur in the independent variables are known, then a more 
accurate function representation can be obtained with the forward 
difference scheme by selecting the appropriate difference values. 
Difference coefficients are derived here for expansions of linear, 
quadratic and cubic form. 

Linear Form - Coefficients for a linear expansion correspond to 
those in a two-point forward difference formula. The derivation 
is rather trivial, but it serves to illustrate the basic procedure. 
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The Taylor series expansion of an arbitrary function f, in terms 
of independent variables , is 



(A-l) 


where f. =9 f/3x. denotes the partial derivative of f with respect 
xi 

to the ith independent variable, and A denotes an incremental 
quantity. The unique types of terms may be derived by considering 
only one of the independent variables, which we denote simply by 
x. Referring to Figure A-l, we describe the values of f at points 
1 and 2 by the linear expansion 


r '' 




r > 

f 1 
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f 1 

f 2 
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f Ax 
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k A 






Inversion of this relation gives explicit definition to the differ- 
ence coefficients, in the form of the matrix in the inverse rela- 
tion: 
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f 1 


1 0 
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f Ax 


-1 1 
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or 

f x = (-f 1 + f 2 )/Ax 


(A- 4) 


X 



Ax 


Figure A-l: Linear Difference Expansion 
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Quadratic Form - Coefficients for the quadratic expansion corre- 
spond to those in a three— point forward difference formula. 
Because the expansion involves terms no higher than second order, 
the unique types of difference coefficients can be derived by 
considering only two of the independent variables, say x and y. 
The corresponding Taylor series expansion for the function f(x,y) 
is given by the expression 

f = fl + f x Ax + f y Ay + 1 f xx (Ax) 2 + f yx AyAx + i f yy < Ay) 2 (A-5) 



Figure A-2: Quadratic Difference Expansion 

Referring to Figure A-2, we write 
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and inverting the above relation gives 


(A-6) 
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(A- 7) 


Cubic Form - Coefficients in the cubic expansion correspond to 
those in a four- point forward difference formula. Because the 
expansion terms are no higher than third order, the unique coeffi- 
cient types can be derived by writing the function in terms of 
only three independent variables, say x, y and z: 

f = f 1 + f x Ax + f y Ay + f z Az + I f xx (Ax)2 + ••• + l f xxx <Ax) 3 

+ ••• + l f zzz (Az)3 (A - 8) 



Figure A-3: Cubic Difference Expansion 
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Referring to Figure- A- 3, we write 
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The inverse of this matrix is the matrix of difference coeffi- 
cients, and is given below. 
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Organization of Terms - The number of unique terms in a symmetric 
tensor of order M and dimension N, is summarized as follows. 


Order 

0 

1 

2 

3 

-M 


Number of Terms 
1 
N 

N ( N+ 1 ) / 2 
N (N+l) (N+ 2)/6 
N(N+ 1 ) (N+ 2 ) ... (N+M-D/M! 


These relations also give the number of unique Mth order partial 
derivatives involved in an Mth order Taylor series expansion of 
N variables. For example, the coefficients of a second^order 
expansion in three variables (x,y,z) are the 3(3+l)/2 = 6 second 
partial derivatives (xx ,yx , yy , zx , zy , zz ) . The total number of 
terms required in the expansion is the sum of the numbers of 
partial derivatives of each order, for example a second— order 
expansion in three variables requires 1 + 3 + 3{3+l)/2 = 10 total 
terms, and therefore a minimum of 10 function evaluations to deter 
mine the coefficient (partial derivative) values. 


The required coefficients for an expansion are conveniently organ- 
ized into a one dimensional array, for example for a function of 
three variables the array is 


(f 


f l f 2 f 3 f ll f 21 f 22 f 31 


111 


The terms are then easily retrieved from this array using the 

tensor relations given above. Thus using L., L.., L . . , ... to 

l l ^3 x j x 

denote the location of the respective i, ij , ijk, ... derivative 
terms within the array, we have for a function of N variables 


L ij = L 00 + <i_1) (i) / 2 + 3 
L 000 5 L 00 + N CN+l )/2 

L ijk = L 000 + (i+l)/6 

+ ( j-1) ( j)/2 + k 
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Gener al Discussion - It may be observed that the forward differ- 
ence scheme outlined here requires a minimum number of function 
evaluations, i.e. one plus the number of partial derivatives 
involved in the expansion. Along with its other advantages of 
possible improved accuracy in certain types of situations, this 
would seem to indicate that the forward difference formulas pre- 
sented here constitute the best approach for the required function 
expansions . 

An interesting alternative derivation of the difference coeffi- 
cient matrices is possible by a procedure used in the finite 
element method. The function to be expanded may be thought of as 
the quantity (say displacement) being interpolated within the 
finite element. The function is then defined in terms of its 
values at the nodes (i.e. the independent variable values) times 
the corresponding shape functions. The required partial deriva- 
tives can then be evaluated explicitly at the "origin", i.e. a 
corner node at which the sides of the element form an orthogonal 
coordinate system, simply by differentiating the element shape 
functions. Of course the appropriate finite element shape 
functions must be available, but if they are then this process 
allows derivation of the difference formulas without inversion 
of a matrix. These considerations were initially responsible for 
the selection of the forward difference approach, and the second 
and third order coefficients were evaluated in this manner, for 
example the third order coefficients using the TET 20 element of 
Argyris et al. . (1968) . 
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APPENDIX B: NONCONSERVATIVE LOADING EFFECTS 

General Considerations - Several types of nonconservative loading 
can occur in finite element analysis, for example where the applied 
generalized nodal forces depend on the system displacements, velo- 
cities, or other displacement or deformation parameters. The 
nonconservative effects considered in the present work are those 
due to nodal forces which are a function of the nodal displace- 
ments, and in particular the effects of pressure loadings where 
the pressurized surface undergoes significant changes in area and 
orientation. General formulations- may be developed for these 
cases, in terms of area integrals and pressure intensities. How- 
ever, in order to illustrate completely the basic effects, the 
nonconservative load terms are derived here for the special case 
of a constant-strain-triangle (CST) finite element. 



Figure B-l: CST Element for Nonconservative Loading 
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CST Element Definitions - Referring to Figure B-l, consider the 
CST element with nodes l r 2 and 3, and subjected to a normal 
pressure loading of intensity h. The vectors V 2 ^ and connect 

the nodes 1-2 and 1-3, respectively. The cross product x 

is then a vector with (positive) direction normal to the element 
surface and with magnitude equal to twice the element area. 


Coordinates in the initial configuration are defined by the com- 
ponents x,y,z, and corresponding displacements by u,v,w. Then 
by defining for node k, the quantities 


cx k “ (x k + V ~ <X 1 +U 1> 

cy k = (y k + V - (y l + V 

Cz k = <z k. +w k> - ( v w l> 


we may write the vectors V as 


21 

31 


= (cx 2 ,cy 2 , cz 2 ) 
= (cx v cy.,czj 


while their rates are given by 


y 2i = (vv^-VVi 1 
^31 = 'V’VVVV'V 


B.l Fundamental Equilibrium Formulation 


(B-la) 


(B-lb) 


( B-lc) 


In this section the nonconservative loading effects are formulated 
for the CST element, and used to generalize the fundamental equi- 
librium equations in Section 2 to analysis of nonconservative 
systems. 
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Basic Load Equation — For a uniform pressure loading, each node 
of the CST element has an equivalent concentrated load vector 
p, given by 


p i = 


6 h(V 21 X 


V,, ) . 
31 i 


(B- 2a) 


The nodal force during an increment of loading is defined by the 
basic nonconservative load equation 


1 

6 


(h* + A h °) (V 21 x V 31 ) 


(B-2b) 


where h* is the pressure intensity at the reference equilibrium 
configuration, h° is a constant pressure distribution and 1 is 
the incremental load parameter. 


First-Order Load Equation - Differentiating equation (B-2b) with 
respect to the fundamental path parameter, gives 


p i " 


A. h 0 (V 


21 


x 


V 31>i 


+ 


I < h * 


+ A h ° ) x +V 


21 


31 


21 


x 


V 31>i 


(B-3a) 

Evaluating at the reference equilibrium configuration 
(A. = 0, V = V*, etc.) gives 


.* 

P 


1 * * 
= ± A. 
i 6 


h 


(V *21 X 


V 31 ) i + 


1 h* 
6 h 


* * 

< V 21 


x V 


31 


+ V 


21 


• * 

X V 31> 


<B-3b) 


This is the first order nonconservative load equation. To put it 
into the desired form, we write the vector q of element displace- 
ments as 


q = <u 2 v x u 2 v 2 w 2 u 3 v 3 w 3 ) 


from which it follows using equations (B-l) , that 


1 h 
6 h 


(V 


21 


x V 31 + V 21 x V 31 ) 
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where 
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0 

-cz 2 

Cy 2 


-cz 3 
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+cx 3 


c y 3 

-cx 3 






The desired form of the first order nonconservative load equation 
is then 


* 




* » * 

+ C . .q . 
i] ] 


(B-3c) 


1 ic ic 

where p? = r h° (V on x V,, ) . 

i 6 21 31 i 

The first part of p in (B-3c) is a usual nodal load rate, and 
occurs in the nonconservative form of equilibrium equation ( 2 - 7 c) 
as a contribution to the load term P° (see (2-9)). The second 

ic 

part of p occurs in the nonconservative form of (2-7c) as an 

unsymmetric contribution to the Jacobian stiffness KO* (note that 
* 

since C. . occurs on the left-hand-side of (2-7c) , it must be sub- 
j 

tracted from KO*). 


Second-Order Load Equation - A second differentiation of (B-2b) 
gives 


Pi = f Ah° (V 21 x V 31 ). + i A h° (V 21 x V 31 + V 21 x V 31 >. 


+ k (h ‘ + A h °> < V 21 x V 31 + V 21 x U 31 + 2 ^21 x 0 31> 


(B-4a) 
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Evaluating at the reference equilibrium configuration provides 


1 •. * 
f A 

h° 

(V 21 X 

* 

V 31>i 

1 • 

+ j A 

* , * 

h° (V 
'21 

x V 
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■ h 
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(V 21 
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x V 31 

* 

+ V 21 

• t k 

X V 31 

+ 2 ^21 X 

• * 

V 31 


* . * 


31 i 


(B-4b) 


This is the second order nonconservative load equation, which 
may be written in the form 


#.* 


* .» * 


p • = C . . q . + pi . 


(B-4c) 


* i .. * 

where pi . = — A h 


<V 21 X V 31>i + I ^ h ° ( ^21 X V 31 


• * 


* • * 


• * 


+ V 21 x V 31 ). + 3 h (V 21 X V 31 ) i 


B. 2 Bifurcation and Postbuckling Formulation 


Basic Load Equation - Development of the nonconservative load 
effects for bifurcation and postbuckling follows the fundamental 
relations of section B.l. Using equation (B-2b) , we may write 
the nodal force during an increment of loading on the postbuckling 
path, as 


J? _ A 


P i = P i + p i = 6 (h + ^ h ° )((V 21 + V 21 } X (V 31 + V 31 )} i ( B ’ 5a ) 


Since this relation will be used to establish a nonconservative 
form of the postbuckling equilibrium equation (3-3), the funda- 
mental load contribution must be subtracted from (B-5a) . We then 
obtain 


P? = t (h* + /V h«) (V^ x V p , + V p , x V? 


21 


31 


21 


31 


+ V 


21 


x V^). 


(B-5b) 
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First-Order Load Equation - Differentiating equation (B-5b) with 
respect to the postbuckling path parameter, gives 


p> = 


h ° (V 21 X V 31 + V 21 

X 

V 31 

+ V 21 : 


* 

(h 

+ \ h° ) (V^ x V P X + 

V 21 

X 

V 31 + V 


X V 31>i 

P x + V P X V f 

21 31 V 21 V 31 

(B-6a) 

Evaluating at the critical bifurcation point (V p = 0) , gives 


+ v' p x V P + V p x v' p ) . 
21 31 21 31 l 


|] P = | (h* + A. h°) (V^ x + v!,? x V*,) 


31 


21 


31 


(B- 6b) 


Substituting for V gives 


= i (h* + !ih°) (V* x v'P + AV* x vl? + 


21 


31 


21 


31 


V 21 X V 


31 


+ v' P x AV~ , ) . 
21 31 l 


(B- 6c) 


and using the relations which express V p in terms of q p , gives 


P = 
1 


* « 


p r = C ij < 3 j P + I h ‘ < AV 21 x V 31 + V 21 x AV 31>i 


+ f ' h ° (V 21 X V 31 + AV 21 X V 31 + V 21 X V *31 + V 21 X AV 31> i 


This is the first order postbuckling nonconservative 
load expression, which may be written in the form 


’P * ’P 
. = C . . a + 


q . - 1 - + pl^ 


(B-6d) 


(B-6e) 


where 


Pl i “ k A h ° <V 21 X V 31 + V 21 X V 3lh 

+ | (h* + A h«) (AV^ x vjP + V ;P x Avfp L 
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Expression (B-6e) provides the necessary nonconservative addi- 
tion to the load term, in the first order postbuckling equation 
(3-5d). The Jacobian KO* again becomes nonsymmetric due to 
the subtraction of the C* terms. Thus a nonlinear, nonconserv- 
ative eigen equation is produced, which may be solved by the 
same approaches discussed in Section 3 for the symmetric problem. 


Second Order Load Equation - A second differentiation of (B-5b) 
with respect to the postbuckling path parameter, gives 


! 1 P = i \ ' ' h° (vb xV P + V?. xV? 


21'" 31 ' V 21 XV 31 + V 21 xV 31> i 
+ 3 A ' h ° (V '21 XV 31 + V 21 XV '31 + V ’21 XV 31 + V Il xV ’31 


+ V '21 XV 31 + V 21 XV ’31> i 
+ i(h* + Hh°) (V’ ’?,xvP + 2V 1 ?, XV'?. 


P + V'-P XV?. 


6' “ 21 xv 31 T 21 xv "31 + V 21 XV ' ' 31 + V "21 xV 31 

+ 2V‘ 2i x V 3 X + ^2! X V' ' 3! + V ”21 xV 31 + 2V '21 xV 31 + 


(B-7a) 


Evaluating at the critical point (V p = 0) , with the critical 
value of h . — h* + A. h° , gives 

Pi" P " I* ,h ° (V 21 XV '31 + V 21 XV 31> i 

+ |h(2V'f 1 xV^ + V^xV-P + V-PxV^ + 2V’PxV^ 


t 2V^XV'P) 


(B-7b) 


Using the relations which express V ,,p in terms of q ,,p , gives 


n ^ = — A * h 0 ( xV ' P + V * ) 

P i 3 1 n V 21 XV 31 + V 2 1 XV 21 i 


+ C ij q j’ P + | h(2V 2f xV 31 + 2V 21 xV 31 + 2V 21 XV 31 J i <B-7c) 
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This is the second order postbuckling nonconservative load 
expression, which may be written in the form 


pi 


’ ,P = C . ,q'. ,P + 2S 


,p 2* + 
1 


p2 . 


(B-7d) 


where 


and 


D2 1 = i k h° (V^ xV!. P + ViFxvt ) . 

* l 6 21 31 21 31 l 


+ | h( ^21 XV 31 + V 21 X ^31 ) i 


p2f = fh(V-PxV'P) L 


Third-Order Load Equation - A third differentiation of (B-5b) 
and evaluation at the critical point, provides 


i! ,p = i K ' ’h° (vt xv; p + V^XV^) ± 


+ ^’ h °< V 21 xV, 3? + 2V * 21 xV 31 + V, 21 xV 31. + 2V 21 xV ' 31 
+ 2V’ P XV'P) . 

+ |h(V^xV-'- P + 3V^XV’ P + 3V^XV-' P + V' P XV^ + 3V”P*V'* 


+ 3VifxV 


, ,f 


21 31 


+ 3v f i p xv; p + 3v; p xv'i p ) . 


21 31 


21 21 i 


(B-8a) 
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Using the relations which express V ,,,p in terms of q ,,fP , 
gives 

p.'.P = ^■•h«(V^xV'P + V'PxV^) . + •h»(V§ 1 xV'P 

+ 2V 21 XV 3? + V '21 XV 31 + 2V 21 xV 31 f) + 2V 2? XV 3?> i + 

✓ 

+ ih(V'^xV'P + V^xV'P + V'PxV^ + V'PxV'f + V-PxV'P 


+ ^21 xV * 3i ^ i 

This is the third order postbuckling nonconservative load 
expression, which may be written in the form 


(B- 8b) 


p i ,,p ■ c ij < 3 j" P + 3 < s "P 2 i + P 3 i> 


(B-8C) 


where 


p 3i = S ' 2 ■ £ Ah- (V^XV'P +■ v-Pxvfp . + ^h-(vX + V'Pxvf 1 ) 

-I- Ah (V^ xV ,P + V iP xV^ ) 1 

6 n V 21 XV 31 + V 2 l xV 31 i } 

+ s ' { |^ h °(V^xV'P + V-Pxv^ + 2V'f*V'P) . 

+ ? h( ^21 XV '31 + V " 2 l^h ) i> * 

+ i h(V ' 2 ? XV 3 ? + V 21 XV, 3 ?) i 
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APPENDIX C: PANES PROGRAM LISTING 

This appendix contains a FORTRAN IV listing of the PANES (Program 
for Analysis of Nonlinear Equilibrium and Stability) program. 
Following the program listing is a listing of input data for the 
torus problem described in section 5.3. 
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***************+**#*******#************* *******«****$****$******* 
PANE S t PROGRAM FOR ANALYSIS OF NONLINEAR ECU I L I 8R I UM / S X AB I L I T Y 
R.G. VOS* THE BOEING COMPANY, PHONE 773-2638, KENT, WASHINGTON 
PANES I BP 360 VERSION (78 DGF ) DATED 09/30/74 

APPLICABLE TO NONLINEAR NONCCNSER VAT I VE HYPERELASTIC SYSTEMS • 

CST ELEMENT, 26 NODES* 78 DOF, 24 ELEMENTS, 20 LOAD INCREMENTS. 

5 MATERIALS, 2 OR 3 DOF PER NODE. 

NGGES ARE LOCATED IN BASIC-CARTESIAN OR CYLINDRICAL COORDINATES 

AND DISPLACEMENTS ARE IN B AS I C ,C YL I NDR IC AL , OR SPECIAL-CARTESIAN. 

INTEGER UtNi ,UIN2,UGUT ,U I NRS , UOUTRS 

INTEGER NOD,NEL,NN,NF,NS,URD,I ,MJUMP,NJUMP 

INTEGER I PRE SS , PRED, I PR ED ( 20 I , MAXUP * MAX I T , NHAT , I MA T { 24 ) 

INTEGER NINCR , INCR, ISTEP , I TER,ELNO( 3,24) ,KFO ( 781 , IDET 
DOUBLE PRECISION PF AC T ( 2 , 20 ) , PREF ( 2 , 78 I , PO ( 2 ) , P 1( 2 ) , PA ( 2 ) 

DOUBLE PRECISION PRFACT ( 20 ) , PRREF ( 24 I , PRO , PR 1 , PR A 

DOUBLE PRECISION PP ( 78 ) , CO ( 78 ) , P l 78 ) # Q ( 78 ) , RC ( 78 ) , RRQ ( 78 ) , PDUM ( 78 

DOUBLE PRECISION LS I GN ,RL , R RL , PA TH , ERR , ERRMA X , OE T 

DOUBLE PRECISION LAM , LAM S , LAMR , FLAM AX , LAM i N » JUMPR , R JUMP , SLOP EO 

DOUBLE PRECISION COOROA ( 5 I * E ( S I , NU ( 6 ) , C , DFE , DFF 

DOUBLE PRECISION GCOS { 9 , 26 ) , COORD ( 3 , 26 ) , KM AT ( 78 , 78 ) 

D0U8LE PRECISION T ( 24 ) , EGEOM ( 3 , 24 ) ,EE T (3 ,24 ) 

COMMON/COMNEL/NE L/COMNS/ NS /COMORO /ORO/COMOFE /DFE /COM EE T /EET 
CGMMON/COMNF/NF/COMMAT/ I MAT /COMENU/E , NU/COMCC/CQ 
COMMGN/COMCOS/GCOS/COMCOR/COORD/COMEL/ELNC/CGMEG/EGECM/COMT/T 
COMMON/ COM IPR/IPRESS/COM PR /PRA/COMPRR /PRREF 
START PROBLEM 

CALL READRSIUINI,UIN2,U0UT , I NCR * U I NRS, UOUTRS ) 

CALL REAOO(5,UOUT,ORD t PRED,MAXUP,MAXlT, ERRM AX , DFE , OFF , 

I M JUMP, JUMPR, SL0PEC,FLAMAX,LAMIN ) 

IF(UINRS.GT.O) GO TO II 


COLD START 

CALL BIGS! 1 , U I N I , UOU T , 
ICCORDA, NOD, NEL, COORD ,GCO$, 
2LS£GN,PP,QQ,PI f PRi> 

N JUMP - MJUMP+l 

GO 10 16 

READ RESTART TAPE 
11 CALL 6 IGS( 2*UINRS, INCR, 


I PRESS, NF ,NMAT,E,NU, 

I MAT, T,ELNO, EGEOM, KFD, PREF, PRREF, 


IPRESS,NF,NMAT , E , NU , 


1 C COR OA, NOD ,NEL, COORD, GCOS, IMAT ,T , ELNO , EGEOM , KFO , PREF , PRREF , 


♦00CC0040 
) OOCOOO 50 
0CCCGO60 
00000070 
♦CCCCQ080 
OCC00090 
OCCOOIOO 
OCCOO 1 10 
OCCOO 120 
00000130 
OCCOO 1 40 
OCOOO I 50 
00000160 
OCCOO 170 
CCCC0180 
00000190 
) 00000200 
00C002 10 
0CC00220 
0QCC0230 
0GCG024G 
00000250 
00000260 
CCC00270 
CC000280 
00000290 
00000300 
0C0003 10 
00C0O320 
CC000330 
00000340 
00000350 
00000360 
00000370 
COCOO 3 80 
00000390 
00000400 
00000410 
00000420 
00000430 



o r> r. o n non 


2LSIGN f PP,CQ,Pl*P«l ) 

NJUMP = MJUMP+1 

16 I F 1 UOUTRS . EQ • 0 > GO TO 17 

WRITE RESTART TAPE 

CALL BIGS I 3, UOUTRS, 0, I PRESS , NF f NMAT * E , NU , 

1 COORD A* NOD *N£L * COORD *GCO S * l MAT »T *£LN0*EG6CM,KFD*PREF*PRRfcF, 
2LSIGN,PP,QQ*PltPRl> 

GENERAL PROGRAM FLOW 

17 NS - 3 

NN - NOD*NF 

READ INCREMENTAL LOAD FACTOR DATA 

CALL READ I ( 5 * UOUT ,N I NCR , PREO * I PRED, PF ACT * PRF ACT ) 

BEGIN LOAD INCREMENT LOOP 
DO 1000 INCR- 1 * N I NCR 

LAM * INCREMENTAL LOAD PARAMETER (MAXIMUM VALUE 1.0). 

LAMR = LOAD YET TO BE APPLIED * 1.0 “ LAM* 

STEP PARAMETER = FRACTION OF LAMR TO BE APPLIED* 


LAMS = LOAD 
LAM * 0 * DO 
LSIGN = + ,- 
IFtLSIGN.LT 


SITUATION. 


FOR LOADI NG* UNLOAD I NG 
0.00 J STOP 101 

POm*Pim»PAUI = LOAD FACTORS FOR LOAD REFERENCE VECTOR I. 
PRO » PR 1 * PR A = PRESSURE LOAD FACTORS FOR PRESSURE REFERENCE VEC 
0*1 DENOTE VALUES AT START, END OF INCREMENT. 

A DENOTES ACTUAL APPLIED VALUEtWHICH AT THIS POINT - 0 VALUE. 
DO 200 1-1*2 
PG( II = PHI) 

PHI) = PF ACT (I * INCR ) 

200 PA(I) * P0( M 
PRO - PRI 

PRi - PRFACT ( INCR ) 

PRA * PRO 
ISTEP = 0 

BEGIN LOAD STEP 

201 ISTEP = ISTEP+i 
NUP = 0 

LAMR * l. OO-LAM 

SET UPPER BOUND FOR ABSOLUTE VALUE OF LOAD STEP SIZE LAMS. 

LAMS = 1.00 

I F I LS IGN.LT • 0 ) LAMS = FLAMAX/LAMR 

CALL PFORCE TO GIVE APPLIED CONSERVA T I VE NODAL LOADS P. 


GOGOOAAO 
CCOG0450 
00000460 
0 C G 0 0 A 7 0 
00000480 
00000490 
00000500 
G00005 10 
00000520 
00000530 
GCC0U540 
C0000550 
00000560 
00000570 
00000580 
00000590 
000006C0 
00000610 
00000620 
OOCCO630 
CCC00640 
TOR. 00000650 
00000660 
00000670 
C0000680 
00000690 
00000700 
C00C07 10 
00000720 
00000730 
OCC00740 
00000750 
00000760 
00000770 
C 0 000 7 00 
00000790 
00000800 
00000810 
0000082Q 
00000830 



REPRODUCIBILITY OF THE 
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0 

1 


c 


c 

c 

c 


STEP 


CALL EFORCE TO GIVE APPLIED NONCCN SER V A T I VE NODAL LOADS 0. 

CALL PFORCEt P1,PREF,NN,P) 

CALL EFORCEI I PRESS , PR 1 , PRREF ,00 , NEL , NN , NF , ELNO , Q ) 

COMPUTE LOAO STEP NODAL LOADS. THESE - APPLIEO LOAD - INTERNAL 
LOAD FOR SPECIFIED FORCE DCF, APPLIED C I SPLACEMEN f - CURRENT 
DISPLACEMENT FOR SPECIFIED DISPLACEMENT DOF. 

DG 210 !*l v NN 

I f ( KFD ( I I .GT *0 ) C - PtI) ♦ 0(1) - PP(I) 

I F ( KFDI I ) # LT . 0 )C » P(I) - GQ(I) 

210 PUl * C 

FORM JACOBIAN AT BEGINNING OF LOAD STEP. 

CALL MERGE ( KMAT , ELNQ # KFD » NEL , NN , NF ) 

CALL DECOMP(KMAT,NN,KFD t IDET,DET) 

FUNDAMENTAL PATH PREDICTOR CODE 
IFUPREDUNCR ) -GE.2 )GC TO 241 
APPLY LINEAR PREDICTOR FOR LOAD 
CALL SOLVE tKMAT *NN, KFD, P,Q ) 

LAMS - LSIGN*LAMS 
DO 230 I” 1 »NN 
Q(!) - LAMS* G ( I) 

GC TO 301 

apply quadratic PREDICTOR FOR LOAD STEP 

RJUMp R - T JUMPR/LAMR UMfNN,KrD,P,PRA,PRl,LSIGN,RL,RRL,RG,RRg) 

CALL STEP I LS IGN »RL »RRL ,KN, RQ ,RRQ t R JUMP , M JUMP , ft JUMP t SLOPED. 

1 PATH * LAMS ) ’ 

!pni«^ T cn 0 n N L^ AS TRAVERS£D II. E. lams = 0) OUTPUT LIMIT RESULTS 
IM LAMS.EQ.O.DO ) 

1CALL 0UTLIM16 * NOD, NEL »NN,NF»ELNO f EGEGM»EET,CC,P,Q f DFF. 
2RL,RRL,RQ,RRQ,LAM,LAMR) ’ 

* **** *^***^ *********************** 

THIS SECTION OF CODE IS TEMPORY POSTBUCKLING CHECKOUT CODE. 
INTEGER BCOOE,PCODE, IPGST, I IPOST 

DOUBLE PRECISION SCRIT f LCRIT»LDOTl t LDOT2,CGOCTl(78),CQDOT2<78). 
lLPOSTI f LPOST2»CQPOSl( 78)*GUPQS2(78),CGPGS3(78) »CQCRIT(78) 

DOUBLE PRECISION PDUM2 ( 78 ) , PDUM 3 ( 78 ) , PDUM4 { 7 8 ) 

Mln B ccr E urnIo ? ET N<miNEAR EIGEN SOLUTION FOR BIFURCATION POINT 
LSO SET PC00E=1 TO GET ADDITIONAL POSTBUCKLING PATH SOLUTION. 
BCOOE - 0 


230 


241 


COC00840 
00000850 
00000660 
00000870 
CCC00880 
00000890 
00000900 
00000910 
00000920 
00000930 
C0000940 
00000950 
00000960 
00000970 
00000980 
00000990 
C0001000 
OOOOIOIO 
00001020 
00001030 
00001040 
00001050 
00001060 
00001070 
COCO 1080 
00001090 
.00001100 
ocooiiio 
00001120 
00001130 
*00001140 
*00001150 
00001160 
00001170 
00001180 
00001190 
00001200 
.00001210 
0000 1220 
00001230 



PCCDE * 1 

IF(BC0DE.EQ.0)G0 TO 279 

CALL EIGENIUOUT,KMAT,PCUM,G,NN,KFD,PRA,PRl » Rl , RRl , RC » RRQ , 
25,15,1.0-2, 1.0-5, SCR IT,QUP0S1* I POST) 

CALL QUTPG(U0UT,N0D,NF»QQPGS1, OOP OS 1 ) 

LCRIT = RL+SCRIT ♦ # 5D0*RRL*SCR I T**2 

I F ( PCODE.EQ* 0 )GQ TO 279 

PERFORM POSTBUCKLING SOLUTION 

LCRIT * RL *SCR IT 

LOOT! = RL 

LD0T2 * 0 • DO 

00 265 1*1, NN 

GGCRI T ( I > * CQUI + RG ( I J *SCR I T 
UQDQT 1 ( I ) * RQ ( I ) 

265 QQOOT 2 1 I ) = 0.00 

I F I I PRED ( INCRI.LT. 2 >G0 TO 271 
LCRIT * LCRIT ♦ . 500*RHL * SCR I T **2 
LOOT 1 * LOOT 1 ♦ RRL*SCRIT 
LOOT 2 * RRL 
DO 270 1*1, NN 

CCCRIHI) * CQCRITU) + .5DG + RRQU )*SCRIT**2 
GODOT 1 ( [ > * GQDOTim + RRQ(I>*SCRIT 

270 GGD0T2t I ) * RRQ < I ) 

CALL OUTPG ( UCUT , NOD , NF , GCDCT 1 , GOOO T 2 ) 

DO 268 1*1, NN 
C * QQ< 1 ) 

GO ( I ) * CGCft IT ( I ) 

268 GGCRlTt I) * C 

271 CALL MERGE (KMAT,ELNO,KFD,NEL,NN,NF> 

DO 272 1*1, NN 

C * QG( I > 

CC( I i * QQCR IT ( I ) 

272 CGCRITI I ) * C 

1 1 POST * KFD ( IPOST) 

KFDt IPOST) * - 1 POST 

CALL DECOMP (KMAT,NN,KFC, I DET,DET ) 

CALL PRA TE S ( KM A T , POUM , PDUM2 , PDUM3, PDUM4, NN, I POST , KFD , SCR I T , 
1CGCRIT,QGDCT1,GQOOT2,LCRIT,LCOT1,LDOT2,PRO,PRA, 
2CQPOS1»LPOST1,QQPOS2,LPOST2, CQP0S3 ) 

CALL OUTPGI UOUT, NOD, NF, GGCRI T,CQPGS1) 


00001240 
00001250 
00001260 
00001270 
00001280 
00001290 
00001300 
00001310 
00001320 
00001330 
00001340 
00001350 
00001360 
00001370 
G0001380 
00001390 
00001400 
00001410 
00001420 
00001430 
0000 1440 
CG001450 
00001460 
0000 1470 
00001480 
00001490 
00001500 
00001510 
0000 1520 
00001530 
00001540 
00001550 
00001560 
00001570 
00001580 
00001590 
00001600 
0C001610 
00001620 
CC001630 
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0 

1 

cr\ 


CALL OUTPQ (UOUT , NOD « NF , QQPOS 2 , QQPOS 3 ) 

K FO ( I POST ) * 1 1 POST 

ft*********************** a* am* ***** 

path continuation code 

279 CONTINUE 

DO 280 I -1 ,NN 

280 QU) - PATH*RQ(I) + • 5DO*PATH**2*RRQ { I) 

ADD STEP LOAD LAPS TO INCREMENT LOAD SUM LAM 
LAMS - LAMS+LAMR 
301 LAM * LAM + LAMS 
DO 305 1*1,2 

305 PAID = POII) ♦ LAH*(PUI)-PO(I)| 

CALL PFORCEt PA,PREF,NN,P ) 

DC 310 1=1, NN 

IF(KFD( U.GT.OIQQU J ^ QQU) + Q(I» 

IF (KFD< I ) .LT •0)QQ( I) = P(I) 

310 CONTINUE 

PRA - PRO + LAM* { PR1-PR0 ) 

ITER - o 
GC TO 451 

BEGIN ITERATION LCCP 

311 ITER * ITER* 1 

I F I I TER .G T .1)00 TO 401 

FORM JACOBIAN AT APPROXIMATE END OF STEP 
CALL MERGE ( KMAT ,ELNO ,KFD , NEL « NN , NF > 

CALL DECOMP {KMAT ,NN,KFD, IDET.OET ) 

CALL SOLVE (KMAT, NN,KFD,P,Q ) 

UPDATE INTERNAL FORCES PP AND DISPLACEMENTS QQ„ 

COMPUTE APPLIED EXTERNAL LOADS (CONSERVATIVE P , NONCONSERV AT l VE 
DC 410 1*1 ,NN 
QQl I ) * QQU) + Q{ U 
CALL FORCE t NEL, NN.NF ,ELNO, OFF ,00, PP > 

CALL PFORCE(PA,PREF,NN, P ) 

CALL EFORCE ( I PRES S , PRA , PRREF , 00 , NEL , NN, NF , E LNC , Q ) 

CO 460 I * l ,NN 
C * 0 • DO 

IF(KF0{ 1 ) « GT • 0 ) C = PCI) 0(1) - PP(I) 

460 P { I ) * C 

CALL ERCOMP { UOUT »NN » KFD , PP,P,ER«) 


40 1 


410 

451 


00001640 
00001650 
***00001660 
***00001670 
00001680 
00001690 
00001700 
00001710 
00001720 
00001730 
OCCO 1740 
00001750 
00001760 
00001770 
00001780 
00001790 
00001800 
C0001810 
00001820 
00001830 
00001840 
00001850 
00001860 
00001870 
00001880 
00001890 
00001900 
00001910 
00001920 
0) 00001930 
00001940 
00001950 
00001960 
00001970 
00001980 
00001990 
00002000 
000020 10 
00002020 
00002030 
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C END ITERATION LOOP 

IF(ERR.LE.ERRMAX)GO TO 901 
I F ( I TER • LT .MAX I T ) GO TO 311 

C IF THIS POINT IS REACHED* MAX. NC. ITERATIONS OCCUR 

IFtNUP.GE.MAXUPIGO TO 901 
NUP a NUP+1 
ITER = 0 
GO TO 311 

C OUTPUT INCREMENTAL STEP RESULTS 

901 CALL HEAD I UOUT * I NCR * I STEP * LAMS * LAM , PF ACT U* INCR) ,PFACT(2, INCR ) # 
1PRFACTUNCR) *IPREDUNCR) • MAXUP, NUP , MAX I T , 1 TER , ERRMAX , ERR ) 

CALL OUTPQ ( UOUT *NGD*NF*PP*CU) 

CALL STRAIN! NEL *ELNO, EGEOM *NF *00, EE T ) 

CALL QUTE I UOUT *NEL *EET) 

C END LOAD STEP 

IFUAM.LT. LANINIGG TO 1 
IFUAM.LT. .999D0IGG TO 201 
I F i UCUTRS • EQ • 0 ) GO TO 1C00 

C WRITE INCREMENTAL RESTART TAPE 

CALL BIGSi 3 * UOUTRS , I NCR , I PRESS , NF , NMA T , E , NU , 

1CCGRDA,N0D,NEL,CCGKD*GCCS, IMAT* T , ELNO , EGEOM , KFD , PREF , PRREF , 
2LS.IGN,PP*QQ,P1,PR1) 

1000 CONTINUE 

C END LOAD INCREMENT LOOP 

GO TO 1 
END 


00002040 

00002050 

00002060 

00002070 

00002080 

00002090 

00002100 

00002110 

00002120 

00002130 

CCCQ2140 

00002150 

00002160 

00002170 

00002180 

00002190 

00002200 

0C002210 

00002220 

00002230 

00002240 

00002250 

00002260 

00002270 

00002280 

00002290 


SUBROUTINE B IGS ( KQOE , 1 1 , I 2 , I PRESS * NF , NMAT , E , NU , 

1CC0RDA* NOD *NEL * COORD ,GCG$ , IMAT,T,ELNO * EGEOM ,KFD,PREF,PRR£F, 
2LSIGN*PP*QC,P1*PRII 

KCDE = 1,2,3 = INITIALIZE* READ RESTART, WRITE RESTART. 

11 = INPUT OR RESTART INPUT-OUTPUT FILE UNIT NUMBER. 

12 = OUTPUT FILE UNIT NUMBER, OR INCREMENT NUMBER FOR RESTART. 
IPRESS =* NONCONSERVATIVE CODE = 0,1 FOR NO PRESSURE , PRESSURE . 

NF = NUMBER OF FREEDOMS PER NODE. 

NMAT = NUMBER OF MATERIALS. 

E,NU * MATERIAL CONSTANTS (E.G. ELASTIC MODULUS , POI SSON • S RATIO). 
CCORDA(I) * ANGLE FOR SPECIAL COORDINATE SYSTEM I. 

NOD, NEL * NUMBER OF NODES, ELEMENTS. 


00002300 

00002310 

00002320 

00002330 

00002340 

00002350 

00002360 

00002370 

00002380 

00002390 

00002400 

00002410 



I 


n 

i 

00 



C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


I 


CCOROUtl) = COORD I NATES OF NODE T. 

GCQS ( J , I ) * DIRECTION COSINES FOR NODE I* 

IMAT(l)'* MATERIAL NUMBER FOR ELEMENT I. 

TUI * THICKNESS OF ELEMENT I. 

£LNO<J,I) * NODE NUMBERS FOR ELEMENT [. 

EGEGM (Jtl) * GEOMETRY FOR ELEMENT I < BASE , HE IGHT , PART BASE). 
KFO(I) = FORCE-DISPLACEMENT-CONSTRAINT SPECIFICATION FOR OOF 
PREFU,I) * NODAL LOAD AT OOF I FOR LOAD REFERECNE VECTOR J. 
PRREF(I) * INTENSITY ON ELEMENT I FOR PRESSURE REFERENCE VECTOR. 
LSIGN * IF LOAD PARAMETER IS INCREASING* DECREASING. 

PPM) = CURRENT INTERNAL NCDAL FORCE AT COF I. 

QQil) = CURRENT NODAL DISPLACEMENT AT DOF I. 

P1U) - LOAD FACTOR TO BE APPLIED TO PREf(J,I). 

PRI * LOAD FACTOR TO BE APPLIED TO PRREFM). 

INTEGER KOOE, II* 12, I PRESS , NF , NMA T , NOD , NEL , IMATI 1>,ELNC( 3, 1 ) ,KFDI 1 
DOUBLE PRECISION E U ) * NU (1) , COORDA (1 ) *CCORD i 3 , li ,GCC $ i 9, 1 ) * 

IT M ) * EGEOM ( 3 * l),PREF(2,n f PRREF<i),LSIGN f PP(l)*QQH),Pl(l),pRl 
EQUIVALENCE t J 1 *U IN, UI NR S * UOUTRS ) , ( J2 ,UOUT , I NCR ) 

INTEGER JI,UIN,UINRS,UCUTRS*J2,U0UT, I NCR 
INTEGER INC * I » J * NN 
DOUBLE PRECISION THICK 


J1 = II 
J2 = 12 

IF(KODE.NE.MGO TO 101 

INITIALIZE VARIABLES 

CALL READ1 (UIN.UOUT* I PRES S,NF* THICK, NMAT,E,NU) 

CALL READC <U IN, UOUT .COORDA ) 

CALL READMIU IN, UOUT , NOD , NEL , COORD A , COORD , GCO S , 
1 I MAT, THICK, T ,ELNO, EGEOM > 

CALL READMUIN, UOUT, NOD, NF,KFD) 

CALL REACP(UIN,UOUT , NOD , NF ,KFD,PREF) 

IFl IPRESS.GT .0)CALL READPRI UIN, UOUT, NEL tPRREF) 
LSIGN = l.DO 
NN = NOD«NF 


DC 50 1=1, NN 
PPM ) = 0. DO 
50 QG ( I > = 0 • DO 
DO 60 Ml, 2 
60 Pl( I) = 0.00 
PRI - 0 • DO 


CC002420 
CCG0243Q 
00002440 
00002450 
00002460 
00002470 
00002 ABO 
CCC02490 
00002500 
00002510 
CCC02520 
00002530 
00002540 
00002550 
) 00002560 
00C02570 
C0002580 
00002590 
00002600 
00002610 
00002620 
00002630 
00002640 
00002650 
00002660 
00002670 
00002680 
00002690 
C00C27C0 
00002710 
00002720 
00002730 
00002740 
00002750 
00002760 
00002770 
00002780 
00002790 
00002800 
00002810 
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RETURN 

101 I F ( KODE • NE * 2 ) GO TO 201 
C READ VARIABLES FROM RESTART TAPE 

READtUINR$)IPR£SS»NF,NMAT » ( E ( I > » NU ( I ) , i=l,NKAT) , 

1N0D» NELt HCCORCI J, I >, J = l*3), IGCOS ( J, I ) f J= l * 9 ) , 1 = 1 , NOD ) • 

2 t I MAT ( I ) ,T II) v I ELNOt J , I ) ,£G£OM< J, I ) , 1 , 3 ) » PRREF ( 1 ) , I = 1 , NEL ) 
NN - NOD*NF 

READ (UINRS HKFOI 1 > » ( PREF { J » I),J*l,2),I=l,NN) 

151 READ ( U INRS ) INC 

IF( 1NC.EQ. INCRJGO TO 161 
READ (UINRS) 

GC TO 151 

161 READIUINRSiLSIGN, I PP( 1 ) *CG ( 1 ) , I* 1 *NN I , ( P H I I « 1 — 1*2) » PR 1 
REWIND UINRS 
RETURN 

201 IF I KODE .NE .3 )RETURN 
C WRITE VARIABLES ONTO RESTART TAPE 

I F ( I NCR .GT .0 )GC TO 251 

WR I TE ( UOUTRS ) l PRES S, NF , NMA T , ( E ( I ) *NU( I) » I*l t NMAT ) * 

INCH, NEL, ( ( COORD ( J » I ) , J = l , 3 ) , (GCO$( J » 1 1 , J= 1 , 9 ) , 1 = 1 , NOD ) , 
21IMATU ) ,T( I) , (ELNOt J, I ) ,£GECM( J, I ) # J = 1 , 3 ) , PRREF ( I ) , I*1,NEL* 
NN = NOD#NF 

WR I TE ( UOUTRS ) (KFDII ) , ( PREF U , I > , J= 1 , 2 ) • I- 1 * NN ) 

251 WRITE(UOUTRS) I NCR 

WRITE (UGUTRS)LSIGN* (PP( I ) t CQ( I ) • I* ItNN > « IP 1 U> v 1*1 v 2 > tPRl 

RETURN 

END 


00002820 

00002830 

00002840 

00002850 

00002860 

00002870 

00002880 

00002890 

00002900 

00002910 

00002920 

00002930 

00002940 

00002950 

00002960 

00002970 

00002980 

00002990 

00003000 

00C03010 

00003020 

00003030 

00003040 

00003050 

C0003060 

00003070 

00003080 


SUBROUTINE R EADR S ( Ul N 1 , UI N2 # UOU T , I NCR , U I NRS ,UOUT R $ ) 

READ DATA FILE NUMBERS AND START-RESTART COOES. 

UIN1.UIN2 = FILE UNIT NUMBER FOR INPUT DATA TYPE I, II. 

UCUT * FILE UNIT NUMBER FOR OUTPUT DATA. 

INCR = LOAD INCREMENT NUMBER FROM END OF WHICH RESTART IS MADE. 
UINRS - INPUT RESTART TAPE UNIT NUMBER. 

UCUTRS = OUTPUT RESTART TAPE UNIT NUMBER. 

INTEGER UIN i, U IN 2,U0UT t I NCR, UINRS, UOUTRS 
INTEGER START, STAR, REST 
101 FORMAT! A4,6X,6l5) 

201 FORMAT! 1H1, •STARTING PROBLEM') 


C0003090 

GCC03100 

00003110 

00003120 

00003130 

00003140 

00003150 

C0003160 

00003170 

C0003180 

00003190 



-10 


c 


c 


PROP END OF LOAD I NCR EMENT * ,15) 


202 FCRMAT( 1H1, 'RESTARTING PROBLEM 
DATA STAR/ • STAR •/, REST/ • REST * / 

REACH 5 , 101 )$TART»UIN1*UIN2 * UOUT # l NCR ,UI NRS , UGUTRS 

IF ( START *NE*STAR.AND* START. NE. REST) STOP S999 

IFtUIN2.LE.0.OR.UOUT.L6*O) STOP 101 

IF( START. NE.STAR)GO TO 21 

COLD START REQUESTED 

IF (UIN1.LE.0 >STOP 101 

MR ITE ( 6 » 2Q I ) 

UINRS * 0 
RETURN 


RESTART REQUESTED 
21 IF(UINRS.LE.O)STOP 101 
WRITE(6,202) I NCR 
RETURN 
END 


CC00320 0 
00003210 
00003220 
00003230 
00003240 
00003250 
00003260 
00003270 
00003280 
00003290 
00003300 
00003310 
00003320 
0CCO333O 
00003340 
00003350 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


CF E , DFF , 


CONSTANTS* 


SUBROUTINE READO ( U I ,UO,GRD, PRED , MAXUP , MAX I T t ERRMAX , 

1 M JUMP, JUMPR ,SLOPED,FLAM AX, LAM IN) 

REAO PROBLEM IDENTIFICATION AND INCREMEN TAL- I TERA T I VE 
U[*U0 * INPUT, OUTPUT FILE UNIT NUMBERS* 

= UM TENSCR ORDER TO BE USED FOR STRESS-STRAIN EXPANSION 

PRED = DEFAULT SOLUTION PREDICTOR ORDER* 

MAXUP = MAXIMUM NUMBER OF JACOBIAN UPDATES PER LOAD STEP 
MAXIT = MAXIMUM NUMBER CF RE S I DUAL-LOAD ITERATIONS PER UPDATE 
ERRMAX = MAXIMUM ALLOWABLE ERROR NORM. 

CF ™rer 3 FINIT£ DIFFERENCE STEP SIZES TO BE USED IN COMPUTING 
STRESS-STRAIN T ENSORS , FORCES . U 

on^r R ° F 1NCREM£Nf ^VISIONS TO PEKFORM WHEN NEARING A 

L 1 n I t PU I N T « 

OF LOAD INCREMENT PRECEDING LIMIT POINT 
IS TO BE TRAVERSED. 

slope ratio i change/average ) during load step. 

FRACTION OF LOAD INCREMENT TO BE TAKEN DURING 
NEGATIVE LOAOING (AFTER MAXIMJM LIMIT POINT). 

LAMIN = MINIMUM INEGATIVE) FRACTION OF LOAD INCREMENT AT WHICH 
ANALYSIS IS TERMINATED (AFTER MAXIMUM LIMIT POINT) 

INTEGER UI, UO, ORDERED, MAXUP, MAX I T.MJUMP 

DOUBLE PRECISION ERRMAX , DFE t DFF , JUMPR , SLOPED , FLAMAX , LAMIN 


JUMPR = FRACTION 
AT WHICH LIMIT 
SLOPED = MAXIMUM 
FLAMAX = MAXIMUM 


00003360 
00003370 
C0003380 
00003390 
.00003400 
00 003 A 10 
C0003420 
00003430 
00003440 
00003450 
CC003460 
00C03470 
00003480 
00003490 
00003500 
00003510 
CC003520 
00003530 
00003540 
00003550 
00003560 
00003570 



INTEGER It BLANK, I DEN T ( 20 ) 

101 FGRMATI20A4) 

102 FORMAT! AI10,F10.0) 

103 FCRMAH2F10.0) 

10 A FORMAT! I 10,AF1G*0) 

201 FORMAT! 1HO,20A4> 

202 FORMAT ( / 1H , ' TENSOR ORDER =',I5/1H , •PREDICTOR TYPE -*,15/ 

11H , • MAXIMUM JACOBIAN UPDATES PER STEP =*,15/ 

21H t * MAXIMUM RESIDUAL LOAD CORRECTIVE ITERATIONS =',15/ 

3 IH , 'MAXIMUM ERROR NORM -»,E12.5) 

203 FGRMATI/1H ,'DF6 =',E12.5/lH ,'DFF *'»E12.5) 

20A F0RMAT(/1H , • M JUMP =',I5/1H ,*JUMPR =',E12.5/ 

11H , 'SLOPED * 1 , E 12 • 5/ 1H ,'FLAMAX ~',E12.5/1H , * LAM IN =*,E12.5) 
DATA BLANK/' •/ 

READ < U I , 10 1M IDENT! 11,1 = 1,20) 

WRITE! U0»201M IDENT 1 1 ) ,1 =1,20) 

READ ( U I , 102) ORO,PRED, MAXUP, MAXI T,ERRMAX 
IF(ORD.EQ.O) ORD * 3 
IF(PRED*£Q*Q)PRED = 2 
I F ! MAXUP. EQ* 0 ) MAXUP = 0 
IF(MAXIT.EQ.O)MAXt T = 5 
!F<ERRMAX.EQ*O.DO)ERRMAX = l.O-a 
WRITE! UO, 202 )ORD,PRED,MAXUP,MAXIT,ERRMAX 
REA0!UI,103)DFE,DFF 
IF!DFE.EQ.O.DO)DFE * U0*3 
IF!DFF.EQ.O.DO)DFF = l.D-8 
WRITE(U0,203)DFE,DFF 

R E A D < U I , 10A )MJUMP,JUMPR, SLOPED, FLAM AX, LAM IN 

I F ( MJUMP.EG. 0 ) M JUMP = 3 

IF! JUMPR. EQ.O.DO) JUMPR = 0.100 

IFISL OPED. EQ.O.DO) SLOPED = 0.5D0 

IF! FLAM AX • £Q • 0 . DO ) F LAMAX = l.DO 

IF I LAMIN. EQ.O.DO )LAMIN = 0.00 

WR I TE ( UO, 20A ) M JUMP, JUMPR, SLOPED, FLAM AX, LAM IN 

RETURN 

END 


00003580 

00003590 

00003600 

00003610 

00003620 

00C03630 

000036AO 

00003650 

00003660 

00003670 

00003680 

00003690 

00003700 

00003710 

00003720 

00003730 

000037AO 

00003750 

00003760 

00003770 

00003780 

00003790 

00003800 

00003810 

00003820 

00003830 

00003840 

00003850 

00003860 

00003870 

00003880 

00003890 

00003900 

00003910 

C0003920 

00003930 


SUBROUTINE READ 1 1 U I , UO , I PRES S , NF , TH I CK , NM A T , E , NU ) 
READ BASIC CODES AND CONSTANTS. 


OOC039AO 

00003950 



-12 REPRODUCIBILITY of the 
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n 


C UI,UC * INPUT ,OUTPUT FILE UNIT NUMBERS. 

C IPRESS - NON CONSERVATIVE COOE = 0,1 FOR NO PRESSURE , PRESSURE . 

C NF = NUMBER OF FREEDOMS PER NODE. 

C THICK * DEFAULT ELEMENT THICKNESS. 

C NMAT NUMBER OF MATERIALS. 

C E,NU * MATERIAL CONSTANTS (E.G. ELASTIC MODULUS , PO I SSON * S RATIO) 

INTEGER UI ,U0, IPRESS, NF,NMAT 
DOUBLE PRECISION THICK, E( 1),NU(1) 

DOUBLE PRECISION C1,C2 
INTEGER M,NI 

101 FORMAT! 2110, FIO.O) 

102 FORMAT! I 10,2F10.0> 

201 FORMAT! IHO, 1 PRESSURE CODE =*»I5/1H , 1 DOF PER NODE =',I5 
1/1H , * DEFAULT THICKNESS =’,E12.5) 

202 FORMAT (/ 1H » 'MATERIAL CONSTANT CONSTANT 1 ) 

203 FORMAT < 1H , I 5, 5X ,E 12 . 5 , IX , E 12 . 5 ) 

READ (U I ,101) IPRESS,NF, THICK 
IF!NF.EO.O)NF ^ 3 
1FCTHICK.EQ.0.00JTHICK ' » l.DO 
WRITE! UO ,201 ) IPRESS, NF , THICK 
WRITE! UO , 202 ) 

NMAT a o 

40 READ!UI*i02M,Cl,C2 
IF!I.LE.O)RETURN 
WRITE! UO, 203) I , C1,C2 
IF! I.LE.NMAT )G0 TO 51 
N 1 * NMAT+1 
DC 45 M=N1,I 
E!M) * O.DO 
45 NU< M ) = O. DO 
NMAT « I 
51 mi a Cl 
NUT I ) = C2 
GO TO 40 
END 


00003960 
00003970 
00003980 
00003990 
00004000 
00004010 
00004020 
0CC04030 
00004040 
00004050 
00004060 
00004070 
00004080 
00004090 
OCOG41CO 
00004110 
00004120 
00004130 
00004 140 
00004150 
00004160 
00004170 
00004180 
00004190 
00004200 
00004210 
00004220 
00004230 
00004240 
00004250 
00004260 
00004270 
00004280 
00004290 
00004300 


SUBRCUT I NE READC ! UI , UO , CCQRQA ) CGGQ43T0 
C READ SPECIAL CARTESIAN COORDINATE SYSTEMS. 00004320 
C Ul,UO a INPUT, OUTPUT FILE UNIT NUMBERS. 00004330 



oooooonoono 


C CC0R0AU) = ANGLE FOR SPECIAL COORDINATE SYSTEM I. 

INTEGER UI,UO 

DOUBLE PRECISION CQORDA(i) 

INTEGER I 

OCUBLE PRECISION ANGLE * F 
101 FORMAT! I10,F10.0) 

201 FORMAT ! //IH1 * ’CARTESIAN COORDINATE SYSTEMS DEFINED'/ 
i IF « * NUMBER X-AXIS ANGLE'! 

202 FORMAT ! 1H * I 5* 5X*F10»4 ) 

F = 3, 14159265358979300/180*00 
WR I TE ( UO * 20 1 ) 

DO 5 1=1*5 
5 COORDA ( I ) = O.DO 
10 READ(UI»10l)I * ANGLE 
I F C I . LE .0 ) RE TURN 
MR ITE ! UO* 202 II * ANGLE 
CCOROA(I) ANGL E*F 
GO TO 10 
END 


CC004340 

00004350 

00004360 

00004370 

00004380 

00004390 

00004400 

00004410 

00004420 

00004430 

CCC04440 

00004450 

00004460 

0CC0447O 

00004480 

00004490 

00004500 

00004510 

00004520 


u> 


SUBROUTINE READM { U I . UO* NOD * NEL .CCORDA * COGRD * GCOS * 

1IMAT, THICK *T*ELNO* EGEOM) 

READ MESH DATA. 

UI,UO = INPUT *OUTPUT FILE UNIT NUMBERS * 

NOD » NEL = NUMBER OF NODE S , ELEMENTS . 

CCOROAU) = ANGLE FOR SPECIAL COORDINATE SYSTEM I. 

CCCRD { J * I ) = COORDINATES FOR NODE I. 

GCOS(Jtl) = DIRECTION COSINES FOR NODE I. 

IMATU) = MATERIAL NUMBER FOR ELEMENT I. 

THICK = DEFAULT THICKNESS. 

TUI = THICKNESS OF ELEMENT I. 

ELNO ( J * I ) = NODE NUMBERS FOR ELEMENT I. 

EGEOM ( J * I) = GEOMETRY FOR ELEMENT I ( BASE * HE IGHT , PART BASE). 
INTEGER UI *UO*NOD*NEL, I MAT ( 1 ) *ELNCt 3, 1 ) 

DOUBLE PRECISION COORDA U ), COORD ( 3 , 1 )* TH I CK * VLENTH * VDOT 
DOUBLE PRECISION GCOS ( 3 * 3 , 1 ) , EGEOM ( 3 f 1! . T ( 1 ) 

INTEGER I , J*M,LCCCRD*DCOORD,N1*N2*N3 

DOUBLE PRECISION F , ANGLE , X , Y , l , R * TT , 6 * B 1 , H , L31 * A* V2 1! 3 ) * V3i ( 3 ) 
101 FOR MAT! 2I5*3F10.0*I5) 


00004530 

00004540 

00004550 

00004560 

00004570 

C0004580 

OC004590 

00004600 

C0004610 

00004620 

CC004630 

00004640 

00004650 

OCC04660 

00004670 

00004680 

00004690 

00004700 

00004710 



102 FORMAT! 2 I5,F 10*0,31 5) 

201 F0RMAT(1H1,»** NODE t * NO. I.D. LCOGRU X (R)* t 

17X # *Y (THETA) 2 DCOORD' ) 

202 FORM A T ( IH , 2 1 5 , 1 X , I 5 ,2 X , E 1 2 . 5 , 1 X t E 1 2 . 5 , 1 X # E 12 . 5 , 2X f I 5 ) 

203 FORMAT < 1H1 * * ELEMENT »/ 

11H ,» NO. I.D. MATERIAL THICKNESS* »4X * 

2 * NODE l NODE 2 NODE 3 AREA*) 

204 FORMA T ( IN , 2 I 5, 5X # I 5 * 5X , E 12. 4, 3 X , I 5 , 5X , I 5 f 5X , 1 5 , 5X , E 12 . 4 ) 

F = 3. 1415 92 6535897 93 DO/ 180. DO 
WRITE (U0t201) 

NCD = 0 

6 READ ( U I f 101) I f LCGOROf X*Y f Z,DCCORD 
IF( I .LE .0 ) GO TO 150 
NOO = NOD+ 1 

WRITE! U0»202 )NOD, [ , LCOCRO * X # Y , L t DCCGRD 

COURO ( 3 »NOD ) = Z 

I F ( LCODRO. EO *0 ) GO TO 7 

ANGLE * Y*F 

Y = X*DS IN ( ANGLE ) 

O X = X+DCOS (ANGLE ) 

m 7 CCCRD ( 1 » NOD ) = X 

* COORD ( 2 1 NOD ) = Y 

I F ( DCOORD-* 1)13* 12» 11 

11 ANGLE = COORDA (DCOORD ) 

GCOS ( 1« 1 » NOD ) = DCOS (ANGLE ) 

GCOS ( l « 2 t NOD ) = DS IN ( ANGLE ) 

GO TO 100 

12 R * DS0RT(X+*2 ♦ Y**2> 

IF(R.EQ.O.DO)GO TO 13 
GCOS( 1« 1 * NOO } ^ X/R 
GCOS (1*2 » NOD ) = Y/R 

GO 10 100 

13 GCOS < 1 » 1 « NOD) = 1 . DO 
GCOS( i« 2»N0D ) * O.DO 

100 GCOS ( I* 3*N0D ) = O.DO 

GCOS ( 2* 1 * NOD ) = -GCO S ( 1 » 2 » NOD ) 

GCOS 1 2 » 2 * NOD ) - GCOS ( 1 , 1 , NOD ) 

GCOS ( 2 « 3 1 NOD ) = O.DO 
GCOS ( 3» 1 »NOD ) - O.DO 
GCOS ( 3» 2 » NOD ) = O.DO 


CC004720 

0CC04730 

00004740 

0CC04750 

00004760 

00004770 

00004780 

0CC04790 

00004800 

00004810 

OC 0048 20 

0C0048 30 

00004840 

00004850 

CG004860 

00004870 

00004080 

00004890 

00004900 

00004910 

00004920 

00004930 

00004940 

00004950 

00004960 

00004970 

00004980 

00004990 

00005000 

00005010 

00005020 

00005030 

00005040 

00005050 

00005060 

000050 70 

00005080 

00005090 

00005100 

00005110 



nnooo 


n 

i 

U1 


GCOS t 3* 3 f NCO ) * 1 * DO 
GC TO 6 

150 hRITE(U0,203> 

NEL = 0 

151 REAOCUIflOZ)I,M,TT,Nl t N2 f N3 
I F I I .LE *0 ) GO TO 250 

IFl TT.EO.O.DO)TT * THICK 
NEL = NEL*1 
I HAT I NEL ) = M 
T(NEU = TT 
DG 170 J- 1 , 3 

V211 J) = COORD ( J* N2 ) - CC0RD<J,N1> 
170 V 3 1 4 J > s CGORD ( J ,N3 ) - CC0RD(J,N1> 
B - VLENTH ( V 2 1 ) 

L31 = VLENTH ( V3 1 ) 

Bi * VOOT( V21»V3l)/B 
H - DSQRT(L3I**2 - Bl**2) 

A - .5D0*B*H 
EGEOM ( 1 , NEL ) = B 
EGEOM ( 2 ,N£ L ) = H 
EGEOM I 3 ,N£L ) = 81 

200 WRITE(U0,2C4>NEL, I «M v TT,Nl ,N2,N3,A 
ELNOUtNEL) = N1 
ELNO ( 2* NEL ) = N2 
ELNO ( 3* NEL ) = N3 
GO TO 151 
250 RETURN 
END 


C0005120 

0C005130 

00005140 

00005150 

C0005160 

00005170 

00005180 

0C005190 

00005200 

00005210 

C0C05220 

C0005230 

00005240 

00005250 

€0005260 

00005270 

00005280 

C0005290 

00005300 

00005310 

00005320 

00005330 

00005340 

00005350 

00005360 

00005370 

00005380 

00005390 


SUBROUTINE RE ADK t U I ,UC ,NCD , NE , KFD ) 

READ SPECIFIED FORCE— 0 I SPL ACEMgN T-CONS IRA I NT DEGREES GF FREEDOM. 
UI,UO - INPUT, OUTPUT FILE UNIT NUMBERS . 

NCD = NUMBER OF NGOES. 

NF * NUMBER OF FREEDOMS PER NODE . 

KFDtl) = FORDE-DISPLACEMENT-CONSTRAINT SPECIFICATION FOR DOF I. 
INTEGER UI ,UC,N0D,NF,KFC(1> 

INTEGER I S TOR ( 4 ) , J STCR ( 4 ) , KS TOR I 4 ) , L STOR ( 4 ) 

INTEGER I, J,K, L,M,NN,JLCC,LLCC 
101 FORMAT (4(415) > 


00005400 
00005410 
00005420 
00005430 
00005440 
00005450 
OCC05460 
CCC054 70 
C0005480 
00005490 
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201 FORMAT { // 1H 1 , 'SPECIFIED FORCE-D I SP L ACE MENT-CONS TR A I NT DOF* 
1/1H v 'NODE 1,0, COMPONENT NODE I.D. COMPONENT * J 

202 FORMAT ( 1H , I 5 , 6 X * I 5 * 6X , I 5 ♦ 6X , I 5 > 

NN * NOD*NF 

WRITE! UO » 201 ) 

C SET DEFAULT COOES TO SPECIFIED FORCE. 

DC 5 I* 1 » NN 
5 KFC ( I ) — I 

10 READ! UU 101) ( ISTOR(K) , JSTGRIK) # KSTOR(K) ,LSTOR<K) ,K=l,4> 

OC 12 M« 1 t A 

IFUSTOR(M).NE.O>GQ TO 13 

12 CONTINUE 
GO TO 51 

13 DO 20 M*1.4 

I * I STOR ( M > 

IF l I.LE.OJGO TO 20 
J * JSTOR(M) 

K * K STOR ( M ) 

L * LSTORIM) 

WR I TE ! UO »2Q2 ) I » J » K , L 

IFIK. EQ.OJK = l 

IFIL. EG.01L = -J 
JLGC = NF* I I- 1 ) ♦ J 
LLOC * L 

I F ( L • LT • 0 ) LLOC * -L 
LLOC * NF*IK~U + LLOC 
IF ( L. LT.O) LLOC = -LLOC 
KFDULOC) * LLOC 
20 CONTINUE 
GO TO 10 
51 RETURN 
END 


CCC05500 
000055 10 
00005520 
00005530 
00005540 
00005550 
00005560 
00005570 
00005580 
00005590 
00005600 
GG005610 
00005620 
00005630 
00005640 
00005650 
00005660 
00005670 
00005680 
00005690 
0C0057C0 
00005710 
00005720 
C0005730 
00005740 
00005750 
00005760 
00005770 
00005780 
00005790 
0C0058C0 
00005810 


SUBROUTINE R EAOP I U I * UO , NOD , NF , KFD , PREF ) 00005820 
READ LOAD REFERENCE CURVES. 00005830 
UltUC = INPUT»OUTPUT FILE UNIT NUMBERS. 00005840 
NCD * NUMBER OF NODES. 00005850 
NF = NUMBER OF FREEDOMS PER NODE. 00005860 
KFOin » FORCE-DISPLACEMENT-CONSTRAINT SPECIFICATION FCR-DQF I.. 0000^5870 



PREF(Jyl) * NODAL LOAD AT DCF I FOR LCAC REFERENCE VECTOR J. 
INTEGER UI ,UO,NOD,NF t KFD( 1 ) 

DOUBLE PRECISION Prt£F(2,l> 

INTEGER IS TOR (4 ) , JSTOR<4) , I LOAD ,NN , I , J , K f L 
DOUBLE PRECISION ST0R<4> 

101 FORMA T ! 110) 

102 FORMAT !4!2I5*F10.0 ) ) 

201 FORMAT ! IH1 ? • NO. OF LOAC REFERENCE CURVES = * t I5) 

202 FORMAT! 1H0, 'LOAD REFERENCE CURVE NO* *,15/ 

11H ,* NODE COMPONENT LOAD*) 

203 FORMA T ! 1H * I 5 , 3X , I 5 , E 1 2 . 5 ) 

NN - NF*NOD 
READ(UI*101)NL0AD 

WRITE! UO *201 )NLOAD 
DO 1G0 I LOAD- 1 * NLOAD 
WRITE! UO »202)IL0AD 
DO 5 1=1 *NN 

5 PREF! ILOAD* I ) * 0.00 

11 READCUI , 102) ( 1ST0R(K)»JST0R(K) f STCR ( K ) * K= 1 * 4 ) 

DO 12 K = l*4 

IF! ISTOR!K).NE.O)GC TO 13 

12 CONTINUE 

DO 15 1 * 1 * NN 
J = -KFD! I ) 

IF! J.GT.O.AND. J.NE.I JPREFULOAO, I J = PREF t I LOAD, J i 
15 CONTINUE 
GO TO 100 

13 DC 20 K= 1 * 4 

I = ISTOR(K) 

IF! I «LE • 0 ) GO TO 20 
J = JSTORiK) 

WRITE! UO* 203 ) I * J * S TOR ( K ) 

L = NFM 1-1 ) ♦ J 

PREF! ILOAD, L ) * STORIK) 

20 CONTINUE 
GC TO 11 
100 CONTINUE 
RETURN 
ENO 


* 

CC005880 
00005890 
00005900 
00005910 
CC005920 
00005930 
00005940 
C0CO595O 
00005960 
00005970 
0CCO598O 
C0005990 
00006000 
00006010 
00006020 
00006030 
00006040 
00006050 
00006060 
00006070 
00006080 
00006090 
00006100 
0CC06 1 10 
00006120 
00006130 
00006140 
00006150 
00006 160 
00006170 
00006180 
00006190 
00006200 
00006210 
00006220 
00006230 
00006240 
00006250 
00006260 



noon 


n 

i 

h-* 

00 


SUBROUTINE READPR|UI,UO f NEL f PRREF) 

READ PRESSURE LOAD REFERENCE CURVE, 

UltUO = INPUT » OUTPUT FILE UNIT NUMBERS. 

NEL » NUMBER OF ELEMENTS. 

PRREF ( I ) - INTENSITY ON ELEMENT I FOR PRESSURE REFERENCE VECTOR. 

INTEGER U I » UO * NEL 

DOUBLE PRECISION PRREF! I ) 

INTEGER I STOR ! 4 ) « iLOADtlyK 
DOUBLE PRECISION ST0R(4) 

101 FORMAT! 1 10 > 

102 FORMAT 1 4! I 10,F1Q.G> ) 

201 FORMAT ( 1H1 , *N0. OF PRESSURE LOAD REFERENCE CURVES =* t I5) 

202 FORMAT! 1H0, ‘PRESSURE LOAD REFERENCE CURVE NO. *, 15/ 

1 IF ••ELEMENT PRESSURE*! 

203 FORMAT! IH , I 5 # 3X ,E 12 . 5 ) 

READ ( U I • 10 1 ) NLOAD 
NRITE!U0,201 INLGAD 

DO 100 I LOAD- i * NLOAD 
WRITE! UO* 202 ! I LOAD 
DC 5 1 = 1 f NEL 
5 PRREF! I ) = 0.00 

11 READ ( UI • 102) ( I S TOR « K 1 f STOR lK),K=l,4) 

DO 12 K = 1 1 4 

IF! ISTOR(K).NE.O)GO TO 13 

12 CONTINUE 
GO TO 100 

13 DC 20 K=l,4 

I = ISTORIK) 

IF! I *LE • 0 ) GO TO 20 
WRITE! U0f203)It$T0R!K) 

PRREF ! I ) = STOR(K) 

20 CONTINUE 
GO TO 11 
100 CONTINUE 
RETURN 
END 


00006270 

00006280 

00006290 

00006300 

00006310 

00006320 

00006330 

00006340 

00006350 

00006360 

00006370 

00006380 

00006390 

00006400 

00006410 

00006420 

00006430 

00006440 

00006450 

00006460 

00006470 

00006480 

00006490 

CC006500 

00006510 

00006520 

00006530 

00006540 

00006550 

0C006560 

00006570 

00006580 

00006590 

00006600 

00006610 

00006620 


SUBROUTINE READ I ! U I f UO • N I NCR f PRED . IPREU* PFACT f PR FACT 1 


00006630 



oooonnoooon 0000000 


READ INCREMENTAL LCAO CATA. 

Ul*UO = INPUT, OUTPUT FILE UNIT NUMBERS . 

NINCR = NUMBER OF LOAD INCREMENTS, 

PREO = DEFAULT SOLUTION PREDICTOR ORDER, 

IPREDtll = SOLUTION PREDICTOR ORDER FOR LOAO INCREMENT I, 

PFACT ( J , I ) = NODAL LOAD FACTOR FOR INCR, I AND REFERENCE VECTOR J 
PRFAC T { I ) « ELEMENT PRESSURE INTENSITY FACTOR FOR LOAD INCR, I, 
INTEGER UI ,UO,NINCR,PRED, I PREO ( X ) 

DOUBLE PRECISION PFACT i 2 , 1 ) , PRFAC T ( l ) 

101 FORMAT ( 110) 

102 FORMAT! I 10,3F10.0) 

201 FCRMAT(///1H1, , NC, OF LOAU INCREMENTS * *,15/ 

11H INCREMENT* ,2X, • PREDICTOR* ,2X, •MECHANICAL CURVE FACTORS*, 

16X, * PRESSURE * ) 

202 FORMAT ! LH , I 5 , 6X , I 5 , 6X , E 12 . 5 , 2X , E 1 2 . 5 , 2X , 0 1 2 . 5 ) 

REAOIUI, iOUNlNCR 

WRITE (UO ,20 1 ) NI NCR 
DC 100 INCR=1, NINCR 

READiUI, 1021 IPRED! INCR ) , PFAC T ( 1 , 1 NCR ) , PFACT ( 2 , I NCR ) , PRFACT ( INCR) 
IF ( IPRFDt INCR ),EQ.O)IPRED{ INCR ) = PREO 

NR I TEIUO, 202) INCR, IPRED (INCR), PFACT (1,1 NCR), PFACT! 2, INCR), 
1PRFACT! INCR) 

100 CONTINUE 
RETURN 
END 


00006640 

00006650 

00006660 

00006670 

00006680 

,00006690 

00006700 

00006710 

00006720 

00006730 

00006740 

00006750 

00006760 

00006770 

C0006780 

00006790 

00006800 

00006810 

00006820 

00006830 

C0C06840 

00006850 

00006860 

00006870 

00006880 


SUBROUTINE HE AD ! UO , I NCR , I STEP , L AMS , L AM , F l , F2 ,FP , CCC06890 

IPRED* MAXUP*NUP,MAXIT , ITER, ERRMAX, ERR) 00006900 

WRITE HEADING FOR LOAD INCREMENT STEP, 00006910 

UO = OUTPUT FILE UNIT NUMBER, 00006920 

INCR = LCAO INCREMENT NUMBER, 00006930 

ISTEP * LOAD STEP NUMBER. 00006940 

LAMS * LOAD STEP PARAMETER = FRACTION OF REMAINING LOAD INCREMENT. 00006950 
LAM = INCREMENTAL LOAD PARAMETER (MAXIMUM VALUE 1.0). 00006960 

Fit F2 = NODAL LOAO FACTORS APPLIED TO REFERENCE VECTORS. 00006970 

FP = ELEMENT PRESSURE LOAD FACTOR APPLIED TO REFERENCE VECTOR. 00006980 
PRED = SOLUTION PREDICTOR ORDER. 0CC06990 

MAXUP = SPECIFIED MAXIMUM NUMBER OF JACOBIAN STIFFNESS UPDATES. 00007000 

NUP = NUMBER OF JACOBIAN UPDATES PERFORMED DURING THIS LOAD STEP. 00007010 



ooooooorv none 


MAXIT * MAXIMUM NUMBER OF RESIDUAL-FORCE ITERATIONS PER UPDATE. 
ITER * NUMBER OF ITERATIONS PERFORMED SINCE LAST UPDATE. 

ERRMAX * SPECIFIED MAXIMUM RESIDUAL-FORCE ERROR NORM. 

ERR * ACTUAL ERROR NORM OBTAINED. 

INTEGER UO , I NCR , I S TEP , PRED , M AXUP , NUP , M AX I T , l TER 
DOUBLE PRECISION L AMS , LAM , F I , F2 » FP , ERRMAX ,ERR 

201 FORMAT! 1H1/////1H ,'L C A D I N C R E M E N TSI5, 

IS LOAD S T E PM5 f 

27/1H .'INCREMENT LOAD PARAMETER *',E12.5, 

3 S STEP LOAD PARAMETER *',£12. 5) 

202 FORMAT ( // 1H , 'MECHANICAL LOAD FACTORS *',2E 14.5) 

207 FORMAT ( IH , 'PRESSURE LCAO FACTOR *SE14.5) 

203 FORMAT ( 1H , 'PREDICTOR TYPE =',I5) 

204 FORMAT ( 1H , 'SPECIFIED MAX. NO. JACOBIAN UPDATES =*,I5, 

1', NO. UPDATES PERFORMED *',I5I 

205 FORMAT I 1H , 'SPECIFIED MAX. NO. ITERATIONS PER UPDATE =',I5, 

IS NO. ITERATIONS PERFORMED SINCE LAST UPDATE 

206 FCRMATUH , 'SPECIFIED MAX. RESIDUAL FORCE ERROR *SE12.4, 

IS ACTUAL ERROR = SE12.4) 

WRITE I UO, 201 HNCR, I STEP, LAM, LAMS 

WRITE! UO* 202 ) F 1 ,F2 

WRITE!U0,207)FP 

WRITE!U0,203)PRED 

WRITE!UO,204)MAXUP,NUP 

WRITE! UO, 205) MAXIT, I TER 

WRITE (UO, 206 ) ERRMAX, ERR 

RETURN 

END 


OCOO 7020 
00007030 
00007040 
00C07050 
00007060 
00007070 
00007080 
C0007090 
00007100 
00007110 
00007120 
00007130 
00007 1 AO 
C0007150 
CCC07160 
00007170 
00007180 
00007190 
00007200 
00007210 
00007220 
00007230 
00007240 
00007250 
00007260 
00007270 
00007280 
00007290 


SUBROUTINE OUTL I M I UO ,N0D , NEL , NN ,NF , ELNO, EGECM , EET , CO , P , C, DFF , 
IRL,RRL,RC,RRQ,LAM,LAMR ) 

OUTPUT LIMIT POINT DATA. 

UO = OUTPUT FILE UNIT NUMBER. 

NOD, NEL * NUMBER OF NODE S , ELEMENTS . 

NN , NF • SYSTEM DOF, OOF PER NODE. 

ELNO! J . I ) = NODE NUMBERS FOR ELEMENT I. 

EGEOM 1 J , I ) * GEOMETRIC PROPERTIES FOR ELEMENT I. 

EET t J , I ) = PREDICTED LIMIT STRAINS FOR ELEMENT I. 

CCm * CUMULATIVE NODAL DISPLACEMENT FOR DOF I. 


OCOO 7300 
00007310 
00007320 
0C007330 
00007340 
00007350 
00007360 
00007370 
00007380 
00007390 
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i 


P t Q = TEMPORARY STORAGE VECTORS. 

OFF = FINITE-DIFFERENCE SPACING USED IN COMPUTING FORCES. 

RL » RRL * 1ST ,2ND ORDER LOAD PARAMETER RATES. 

RC I I ) , RRQ ( 1 ) * 1ST « 2ND ORDER DISPLACEMENT RATES FOR OOF I. 

LAM * INCREMENTAL LOAD PARAMETER (MAXIMUM VALUE l.O). 

L AMR = LOAD YET TO BE APPLIED = 1.0 - LAM. 

INTEGER U0,NGD»NEL»NN,NF,£LNG(3, 1) 

DOUBLE PRECISION EGECM < 3 * 1 ) , EE T ( 3 * 1 ) , QQ U ) » P (1 ) ,Q < l ) f OFF 
DOUBLE PRECISION RL ,RRL * RQ ( X ) , RRQ ( 1 ) * L AM , LAMR 
DOUBLE PRECISION SLIM.LAMLIM 

201 FORMA T ( // 1H ^PREDICTED LIMIT POINT OCCURS AT LOAD INCREMENT 
IETER = • , E 12. 5/ 1H , 

2 • THE FOLLOWING ARE PREDICTED LIMIT FGRCES-D I SPLACEMEN T S-STRAINS 1 ) 
SLIM = -RL /RRL 

LAMLIM * LAM ♦ (SLIM*RL ♦ . 5D0*SL l M**2*RRL )*L AMR 
WRITE(U0f201 ILAMLIM 
DC 10 1=1, NN 

10 OH) = QQ t I > + SL I N*RQ ( I ) + . 5C0*SL I M**2*RRQ (I ) 

FORCE <N£L*NN,NF,ELNC,DFF,Q f P) 

OUT PC (UO ,NQD ,NF , P T 0 I 
STRAIN(NEL,ELNO,EGEOM t NF,G,EET> 

OUTE(UO,NEL,EET) 


CALL 
CALL 
CALL 
CALL 
RETURN 
END 


00007400 
0000 7410 
C0C07420 
00C07430 
C0007440 
00007450 
00007460 
00007470 
00007480 
00007490 
PARAMOCOO 7500 
00007510 
00007520 
00007530 
C0007540 
00007550 
00007560 
00007570 
00007580 
00007590 
00007600 
C0C07610 
00007620 
00007630 


201 


SUBROUTINE OUTPQ <UG , NOD , NF , P » Q) 

WRITE TOTAL FORCES AND DISPLACEMENTS. 

UC = OUTPUT FILE UNIT NUMBER. 

NCD,NF * NUMBER OF NODES, DOF PER NODE. 
P(I),QU) = FORCE, DISPLACEMENT TO BE OUTPUT A 
INTEGER UO , NOD ,NF 
DOUBLE PRECISION PU),QU) 

INTEGER I , J , K 

COUBLE PRECISION STORlfc) 

FORMAT ( IH1 , 1 4 X , 2 2 1 1 H * ) v * CUMULATIVE 


1ENTS* , 2X t 23 ( 1H* I / 1H ,•** NODE 


internal 
1 7 ( 1H* I , 


27X , 13 ( 1 H* ) , 
3/lH , 10H NO 
1) 


DISPLACEMENTS • ,13( lH*) , 

I.D., 5X, 1HU, 14X, 1HV, 14X, IhW, I9X 


CCC07640 

OCC07650 

00007660 

00007670 

T DOF I. COG 07680 

00C07690 

00007700 

00007710 

C0007720 

FORCES AND D I SPLAC EM00007 7 30 

1 FORCES • ,16(1H*I ,00007740 

COCO 7 750 

, 1HU, 14X, 1HV, 14X , 1 HW/ 0000 7 760 

00007770 
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202 FCRMATdH ,215* 2X,3E15«7,5X,3E 15.7) 
WRITE! UO ,201) 

DU 10 1=1,6 
10 ST0R( I) = 0* DO 
CC 100 1*1, NOD 
CC 50 J * 1 , NF 
K = NF*(I-mj 
STORU) = P { K ) 

50 ST0R13+J) - CM K } 

100 WRITE (UO, 20211 , l, ( STOR < J ) , J= 1 , 6) 
RETURN 
ENO 


C0007780 

00007790 

00007800 

00007810 

00007820 

00007830 

00007840 

00007850 

00007860 

00007870 

00C07880 

00007890 


SUBROUTINE OUTE ( UO , NEL ,£T ) 

WRITE CUMULATIVE STRAINS ET * 

UO * OUTPUT FILE UNIT NUMBER* 

NEL * NUMBER OF ELEMENTS. 

E T ( J « I ) = STRAINS TO BE OUTPUT FCR ELEMENT I. 

INTEGER UO , NEL 

DOUBLE PRECISION ET<3,1) 

INTEGER II,I 

201 FCRMATUH1, •ELEMENT*, 3X,12(1H*)»' CUMULATIVE STRAINS 
I/1H ,• N0.*yl0X,2HXX,10X,2HYY,10Xy2HZZ,10Xy2HXY» 

202 FORMAT! 1H , 1 5 , 3X , 2£ 12. 4 , 12X , E 12 . 4 ) 

WRITE! UO , 201 ) 

DO 100 11=1, NEL 

100 WRITE! UO ,202)1 I,<ETU,II},I = 1,3) 

RETURN 

END 


»,12(lH*)y 


00007900 

00007910 

00007920 

00007930 

00007940 

00007950 

00007960 

00007970 

00007980 

00007990 

00008000 

00008010 

00008020 

00008030 

00008040 

00008050 


SUBROUTINE GFILL (NFyELNC, CCtCI 
FORM VECTOR OF ELEMENT DISPLACEMENTS 
NF = DOF PER NODE. 

ELNO(Jyl) = NODE NUMBERS FOR ELEMENT 
CC! I) = NODAL DISPLACEMENT AT DOF I. 
QU) = ELEMENT NODAL DISPLACEMENT AT 
INTEGER NFyELNO! 1) 

DOUBLE PRECISION GCM11,C!1» 


00008060 

FROM NODAL DISPLACEMENTS GG00008070 

00008080 
CC008090 
00008100 

ELEMENT COF I . 00008110 

00008120 

00008130 
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) 


INTEGER IfNItlOtJOfK 

0CCC8140 

DO ICO 1=1*3 

00008150 

N I * ELNO( I ) 

00008160 

10 = NF*(Nl-n 

00008170 

JC = NF*I 1-1 ) 

00008180 

00 100 K= 1 « NF 

00008190 

U(JO + K) * GO ( l 0+ K ) 

00008200 

CALL R0TC(NF*ELNC,G*0> 

00008210 

RETURN 

00008220 

END 

00008230 


SUBROUTINE PE I LL ( Nf , ELNC * P* PP ) 

FORM VECTOR OF NODAL FORCES PP FROM ELEMENT FORCES P. 
NF = DOF PER NOCE. 

ELNC ( J* l ) - NODE NUMBERS FOR ELEMENT I. 

P(I) = ELEMENT NODAL FORCE AT ELEMENT DOF I. 

PPII) - NODAL FORCE AT COF I. 

INTEGER NF * E LNO ( 1> 

CCUBLE PRECISION P(1»,PPII) 

INTEGER I»NI * I C * JO * K 
CALL ROTG(NF*ELNC*P* 1 ) 

DO 100 1=1*3 
N I = ELNO( I ) 

10 = NF*(NI-l) 

JO = NF*U-1> 

DO 100 K = i *NF 

100 PPUG+KJ = PPUO+KI ♦ P ( JO ♦K I 
RETURN 
END 


CC008240 

00008250 

00008260 

00008270 

00008280 

00008290 

00008300 

00008310 

00008320 

00008330 

00008340 

00008350 

00008360 

00008370 

00008380 

00008390 

00008400 

00008410 


SUBROUT INE OF I LL l NF* EGEOM* Q, 0 ) 

COMPUTE ELEMENT DISPLACEMENT DERIVATIVES D FROM DISPLACEMENTS Q* 
NF = DOF PER NCOE. 

EGEUMtJ *n * GEOMETRIC PROPERTIES FUR ELEMENT I. 
cm = ELEMENT NOOAL DISPLACEMENT AT ELEMENT DOF I. 

DU) = ITH DISPLACEMENT DERIVATIVE ( UX , V X f WX *U Y , VY , W Y ) . 

INTEGER NF 

DOUBLE PRECISION EGEGM ( 1 ) * Q <1) * D ( 1 ) 


00008420 

0CC08430 

C0008440 

OC008450 

00008460 

00008470 

CC008480 

00008490 
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INTEGER NF 2 f I 

OCUBLE PRECISION B»H,B1,B2,A2 
NF2 * NF*2 

8 - EGEGM< 1 ) , 

h = EGEOM<2) 

B 1 = EGEOM ( 3 ) 

B2 * B-Bl 

A2 - 1 • DO/ ( B*H ) 

DC 10 I » l » NF 

DU) * A2*H*(-gU J+CINFM) ) 

10 DIMF + I) = A2*(~82< t C( I )-Bl*G(NFU )+B*G(NF2+I) ) 
RETURN 
END 


0CC085C 0 
0C0085I0 
00008520 
00008530 
00008540 
00008550 
00008560 
0C0085 70 
00008580 
00008590 
CCC08600 
00008610 
00008620 


SUBROUTINE EF ILL ( NF , 0, ET > 

COMPUTE ELEMENT STRAINS ET FROM DISPLACEMENT DERIVATIVES D. 
NF * DOF PER NODE • 

CU) a ITH DISPLACEMENT DERIVATIVE ( l‘X, V X , H X , UY , VY , k Y ) . 
6TU) = ITH LAGRANG I AN STRAIN COMPONENT (XX,YY,XY). 

INTEGER NF 

OCUBLE PRECISION Ctl),ET<l) 

E T ( l ) = D( 1) 

ET(2) = D ( NF +2 ) 

E T ( 3 ) = 0(2) ♦ D (NF+ I ) 

CO 10 M1,NF 

ET I I ) = ET ( I ) ♦ .500*DU)**2 
ETC2) = E T ( 2 ) + .5D0*D (NFU) **2 
10 ET ( 3 ) s ET ( 3 ) ♦ D{l)*D{NFM) 

RETURN 

END 


00008630 
00008640 
0CC08650 
00008660 
00008670 
OC 008680 
00008690 
00008700 
00008710 
00008720 
00008730 
00008740 
00008750 
C0008760 
00008770 
00008780 


SUBROUTINE AF I LL ( NF , 0, A, KGDE ) 

KCDE-0 FORM LAGRANG I AN Al(i,J) * A 1 ( I T J * K ) *0 ( K ) • 

KCCE-1 FORM LAGRANGIAN AU f J) = A 0 C I » J ) ♦ A l ( I , J f K ) * D ( K ) . 

NF - DOF PER NODE. 

DU) = ITH DISPLACEMENT DERIVATIVE ( UX , V X , MX f U Y , V Y , W Y ) . 

A GIVES LAGRANGIAN STRAINS (XX.YY.XY) FROM ( U X , V X , W X , UY t V Y f WY ) . 
INTEGER NF,KQDE 


00008790 

00008800 

00008810 

00008820 

C0008830 

00008840 

00008850 
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DOUBLE PRECISION Cti>,At3,l> 

00008860 

INTEGER J,J1 

00008870 

DC 10 J- 1 » NF 

00008080 

Jl * NF + J 

00008890 

A ( 1 » J ) x D(J) 

00008900 

At 1, Jl) = O.DO 

GC008910 

A ( 2 * J ) = O.DO 

00008920 

A ( 2 , J 1 ) = D ( J X ) 

00008930 

A ( 3 » J > = D tJ 1 ) 

QCQ08940 

A ( 3 f J 1 ) = D(J) 

00008950 

IFtKODE.EG.OjKETURN 

00008960 

At 1, 1) = t .DO * At U i) 

0C008970 

A(2,NF*2> = 1 • DO ♦ A(2,NF+2) 

00008980 

A(3,2) = i • DO * A { 3, 2 ) 

C0008990 

A t 3 , NF* 1 ) = l.DO ♦ A ( 3 * NF * 1 ) 

00009000 

RETURN 

00009010 

END 

00009020 


O 


SUBROUTINE GF I LLt NF, EGECM, G ) 

FORM DISPLACEMENT-DERIVATIVES FROM NODAL-DISPLACEMENTS MATRIX G. 
NF = DOF PER NODE. 

EGEOM I J * I ) = GEOMETRIC PROPERTIES FOR ELEMENT I • 

G GIVES tUX,VX,WX,LY,VY,WY) FROM ELEMENT NODAL DISPLACEMENTS. 
INTEGER NF 

DOUBLE PRECISION EGEOM ( l ) , G ( 6 * 1) 

INTEGER NF2 t NF3«Ivllf 12 
DOUBLE PRECISION b,H f Bl,B2,A2 
NF2 * NF*2 
NF3 * NF*3 * 

B * EGEOM! 1) 
h = EGEOM ( 2 ) 

B 1 = EGEOM ( 3 ) 

B2 ^ B-B 1 
A 2 = I • DO/ { B*H ) 

DC 5 I = 1 , NF2 
DC 5 J- l ,NF 3 
5 G tl * J ) * O.DO 
DC 10 I - l * NF 
II * NF * l 


00009030 
00009040 
GCC09050 
00009060 
00009070 
€0009080 
0C009090 
00009100 
00009110 
00009120 
00009130 
00009 1 AO 
00009150 
00009160 
00009170 
00009180 
00009190 
00009200 
00009210 
C0009220 
00009230 
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12 = NF2+I 
G( It I) * -H*A2 
G ( I , 1 1 ) * H*A2 
GUl,n = -82*A2 
GUI, ID = -fU*A2 
10 G ( II, 12) * B*A2 
RETURN 
END 


00009240 

00009250 

00009260 

00009270 

00009280 

00009290 

00009300 

00009310 


subroutine mtran ( a ,ma,na ,b,mb ,nb ,d ) 

COMPUTE D( 1,0) - A(H,N)*6(M, I )*B(N, J ) • 

A = SQUARE MATRIX TO BE TRANSFORMED . 

MA - MAXIMUM I FOR T RAN-D I ME NS I ONEO ) SIZE OF A. 
NA = ACTUAL SIZE OF A. 

B = TRANSFORMATION MATRIX. 

D = SQUARE TRANSFORMED MATRIX. 

MB * MAXIMUM (FORTRAN-DIMENSIONED) SIZE OF 0. 
NB * ACTUAL SIZE OF 0. 

INTEGER MAfNA, MB, NB 

CGUBLE PRECISION A ( MA , 1 ) , B (M A , 1 ) , D ( MB , 1 ) 
INTEGER I,J,M 

DOUBLE PRECISION C,STGR(6 t 9) 

DO 50 I - 1 i NA 
DC 50 J- I r NB 
C - 0. DO 
DO 45 M= 1 , NA 

45 C = C + A < I , M) *B (M, J) 

50 STOR(IfJ) * C 
DC 100 1*1, NB 
DC 100 J= 1 , NB 
C - 0 . DO 
DO 95 M= 1 , NA 

95 C = C ♦ STOR (M, J) *B(M, I ) 

100 C(I,J) * C 
RETURN 
END 


0C009320 
00009330 
00009340 
C0009350 
00009360 
00009370 
00009380 
00009390 
CO 009400 
00009410 
00009420 
C0009430 
00009440 
00009450 
00009460 
00009470 
00009480 
00009490 
0C009500 
00009510 
00009520 
00009530 
00009540 
00009550 
CC009560 
00009570 
00009580 


SUBROUTINE ROTQ ( NF , ELNC , Q f K0D6 ) 


00009590 
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n 

tsj 


KODE=G ROTATE DISPLACEMENTS TO ELEMENT FROM NODAL. 

KCDE=1 ROTATE FORCES TC NODAL FROM ELEMENT. 

NF = DOF PER NODE. 

E LNO ( J , I ) - NODE NUMBERS FOR ELEMENT I. 

4MI> * ELEMENT NODAL DISPLACEMENT AT ELEMENT DOF I. 

GCOS ( J • I ) - DIRECTION COSINES FOR CGORO I NAT E SYSTEM AT NODE I. 
CCORD<J,l) * COORDINATES OF NODE I. 
COMMON/COMCOS/GCOS/COMCCR/CCORD 
INTEGER NF,6LN0m,K0DE 

DOUBLE PRECISION GCOS i 3 » 3 « 1 > « COORD < 3 # 1 1 ,0 ( 1 ) 

INTEGER Nl,N2rN3,NI»N,I,J,M*IO 
CCUBLE PRECISION V2 ii 3 ) t V3 1 ( 3 ) , VY ( 3 ) ♦ VZ 13 I 
DCUBLE PRECISION C » REG i 3 9 3 ) * RNG I 3 * 3 ) « REN ( 3 * 3 ) , OPART ( 3 ) 

C COMPUTE MATRIX REG TO RCTATE DISPLACEMENTS ELEMENT FROM GLOBAL 

Ni = ELNCI 1) 

N2 * ELNOI2) 

N 3 * ELNOI 3 I 
DC 10 I * l * 3 

V2KI) - CCCRD ( I ,N2 ) - CCORDU,Nl) 

10 V3 1 ( I > - COORD ( I »N3 ) - CC0R0(I*N1) 

CALL VCR0$S<V2l,V3i,VZ> 

CALL VNGRM ( V2 1 * V2 1 1 
CALL VNORM(VZ,VZ> 

CALL VCR0SS(VZtV21»VYI 
DC 20 J= 1 » NF 
REGU#J) = V21IJ) 

R EG ( 2 * J ) = VY(J) 

20 REG ( 3 * J ) = VZiJ) 

DC 5CG N» 1 » 3 

C CCMPUTE MATRIX RNG RCTATE NODE N DISPLACEMENTS NODAL FROM GLOBAL 

M = ELNOI N ) 

DC 30 1=1, NF 
DO 30 J = 1 , NF 

30 RNG I I»J> * GCOSCIt JfNI » 

C CCMPUTE MATRIX REN ROTATE DISPLACEMENTS ELEMENT FROM NODAL 

DC 50 1=1, NF 
DC 50 J = 1 * NF 
C = 0 .DO 
DO 45 M=WNF 

45 C = C ♦ REG ( I * M ) *RNG < J »M } 


00009600 
00009610 
00009620 
00009630 
00009640 
00009650 
00009660 
C0C09670 
00009680 
00009690 
00009700 
0CC097 10 
00009720 
00009730 
00009740 
00009750 
00009760 
00009770 
00009780 
00009790 
00009800 
00009810 
00009820 
00009830 
00009840 
00009850 
00009860 
00009870 
0C009880 
00009890 
00009900 
00009910 
00009920 
00009930 
00009940 
C0009950 
00009960 
00009970 
00009980 
00009990 
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C 


50 RENCItJ) * C 

ROTATE OtN) PARTITION USING MATRIX 
10 * NF*(N-l> 

00 110 1 = 1 ,NF 
110 CP ART ( I ) = Q ( 10+ I ) 

DC 120 1=1, NF 
C = 0.00 

IF(KODE«.Eti.l >G0 TO 116 
OC 115 M=1,NF 

115 C = C ♦ REN( I,M)*CPART<M) 

GO TO 120 

116 CO 118 M = 1 , NF 

118 C = C ♦ RENI M, I) *QPART ( M ) 

120 (jtlO+1 ) = C 
500 CONTINUE 
RETURN 
END 


00C1GQGG 

REN FCR NODE N CC010010 

00010020 
00010030 
CC010040 
00010050 
00010060 
00010070 
COO 10080 
00010090 
00010100 
00010110 
00010120 
00010130 
00010140 
00010150 
00010160 


SUBROUTINE RuTK TNF » E LNG , K ) 

RCTATt ELEMENT STIFFNESS TO NODAL FROM ELEMENT. 

NF = DOF PER NODE. 

ELNOU.U = NODE NUMBERS FOR ELEMENT I. 

K = ELEMENT STIFFNESS MATRIX. 

GCOS(J*I) = DIRECTION COSINES FOR COORDINATE SYSTEM AT NODE I. 
CCORDU.l) = COORDINATES OF NODE I. 

cgmmon/comcos/gcos/comcgr/cooro 

INTEGER NF ,ELNO< l ) 

DOUBLE PRECISION GC0S I 3 , 3 , 1) , COORD ( 3 , U ,K < 9, 9 ) 

INTEGER N1,N2,N3,NI » N , I ,J,M, 10, JO, I P , JP 
DOUBLE PRECISION V 2 1< 3 > , V3 1 ( 3 > , V Y ( 3 ) , VZ ( 3 I 
CCUBLE PRECISION C , REG < 3 , 3 ) , RNG t 3 , 3 ) ,REN ( 3 , 3 I , KPART i 3 , 3 ) 

C COMPUTE MATRIX REG TO ROTATE DISPLACEMENTS ELEMENT FROM GLOBAL 

N 1 = ELNO(l) 

N2 = ELNGI21 
N 3 = ELN0I3) 

DO 10 1=1,3 

V21II) = COOROI ! »N2 ) - COQRDU.Nl) 

10 V 3 1 ( I ) = CCORD ( I ,N3 ) - CCORDU,Nl> 

CALL VCROSSI V2l,V3i,VZ) 


00010170 
CG010180 
00010190 
00010200 
00010210 
00010220 
00010230 
00010240 
00010250 
COO 10260 
00010270 
OCO 10280 
OCO 10290 
00010300 
00010310 
00010320 
OCO 10 330 
00010340 
00010350 
00010360 
00010370 



o 

ISJ 

VO 


CALL VNORM < V21,V21) 

CALL VNORM(VZ,VZ> 

CALL VCROSSI VZ.V21.VYI 

DO 20 J* 1 » NF 

REG ( 1 , J ) * V 2 1 { J ) 

REG<2,J) * V Y { J ) 

20 REG I 3 , J ) * VZ(J) 

DO 5 CO N=l,3 

C COMPUTE MATRIX RNG ROTATE NODE N 0 I SPL ACEMENTS NODAL FROM GLOBAL 

N I * ELNOt N ) 

DC 30 I = 1 » NF 
CC 30 J*1,NF 

30 RNG t I * J ) = GCOS ( 1 f J »NI ) 

C COMPUTE MATRTX REN ROTATE DI SPLACEMENTS ELEMENT FROM NODAL 

DO 50 I - 1 1 NF 
CO 50 J = 1 , NF 
C * 0 « DO 
DO 45 M = 1 »NF 

45 C * C ♦ R£G( I,M)*RNGt J,M> 

50 REN ( I » J ) * C 
DO 200 IP* 1,3 

C RCTATE K(1P*N) PARTITION USING MATRIX REN FOR NODE N 

10 * NF * { I P— 1 ) 

JO = NF*(N-1 ) 

DC 110 1*1, NF 
DC 110 J = 1 , NF 

110 KPART (I , J ) * K ( 1 0+ I » J0 + J J 
DC 120 1 * 1 , N F 
CC 120 J * 1 , NF 
C * 0 .DO 
DC 115 M*l,NF 

115 C - C ♦ KPARTU t M)*R£N(M, J) 

120 M IO+I, JO + J) * C 
200 CONTINUE 

DC 300 JP* 1,3 

C RCTATE KINfJP) PAR f I T I CN USING MATRIX REN FOR NODE N 

10 * NF*(N-1 ) 

JC = NF*CJP-i) 

DC 210 1*1, NF 
DO 210 J= 1 , NF 


OOC 10380 
OCO 10390 
00010400 
000 104 10 
00010420 
00010430 
00010440 
00010450 
OCO 10460 
00010470 
00010480 
00010490 
00010500 
00010510 
00010520 
00010530 
00010540 
OCO 10550 
OCO 10560 
00010570 
00010580 
00010590 
00010600 
00010610 
00010620 
00010630 
OCO 10640 
00010650 
00010660 
00010670 
00010680 
00010690 
00010700 
00010710 
00010720 
COO 10730 
00010740 
00010750 
00010760 
00010770 
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210 KP ART ( 1 , J ) = K(!0+l,JQ+J) 

DO 220 I = l , NF 
DO 2 20 J= 1 , NF 
C = 0 * DO 
DO 215 M- 1 ,NF 

215 C = C + RENIM, I )*KPART<M, J) 
220 K { IO+I,JO+J) = C 
300 CONTINUE 
500 CONTINUE 
RETURN 
END 


00010780 
00010790 
00010800 
00010810 
00010820 
00010830 
00010840 
00010850 
000 10860 
00010870 
00010880 


SUBROUTINE FORCE ( Nfc L , NN , NF ,E INC , DF , QQ , Pp) 

COMPUTE INTERNAL FORCES PP CORRESPOND I NG TO DISPLACEMENTS 00, 
NEL * NUMBER OF ELEMENTS. 

NN ? NF = SYSTEM DOF, DCF PER NODE. 

ELNO ( J , I ) = NODE NUMBERS FOR ELEMENT I. 

DF = FINITE- DIFFERENCE SPACING USED IN COMPUTING FORCES. 
QOm.PPU) = CUMULATIVE 0 I SPLACEMENT , I N TERN AL FORCE AT DOF I. 
EGEOM ( J , I ) = GEOMETRIC PROPERTIES FOR ELEMENT I. 

TUJ * THICKNESS CF ELEMENT I. 

NS == NUMBER OF STRAIN COMPONENTS. 
COMMON/COMEG/EGEOM/COMT/T/COMNS/NS 
INTEGER NEL»NN#NF,ELNCM3,1 ) ,NS 

DCUBLE PRECISION QQ! 1 ) , PP ( 1 ) , OF , EGEOM ( 3 , i ) , T i 1 ) 

INTEGER I , I I »M,NF2 , NF3 

DOUBLE PRECISION C , V , UA , UB , EO ( 3 ) ,E <3> , S < 3 > , D ( 6 ) , PD { 6 ) , Q ( 9 } , P ( 9 ) 
DCUBLE PRECISION A ( 3 , 6 ) , G ( 6 , 9 ) , ENERG Y 
EQUIVALENCE! Ail ) ,G{ 1 )) 

NF2 = NF*2 
NF3 * NF *3 
DC 10 1=1, NN 
10 PPi I) = 0. DO 
DO 100 I 1 = 1, NEL 

V = .5D0*T{ I I )*EGEOM ( 1 , 1 I )*EGE0M(2, 1 I ) 

CALL QF ILL iNF,ELNC( 1, I I ) , QQ , Q ) 

CALL OFILLiNF, EGECMi 1,11 ),Q,D) 

CALL EF 1 LL ( NF , D , EO ) 

DO 50 I = 1 f NS 


00010890 

00010900 

00010910 

00010920 

00010930 

00010940 

00010950 

00010960 

0C010970 

00010980 

00010990 

00011000 

00011010 

00011020 

00011030 

00011040 

00011050 

00011060 

CC011070 

00011080 

00011090 

00011100 

00011110 

CC011120 

00011130 

00011140 

00011150 
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i 
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DO 35 M=1 , NS 
35 ECM) * EO(M) 

C ^ EOU) 

Ell) * C - DF 
UA * ENERGY ( II, E ) 

Ell) = C ♦ DF 
08 - ENERGY ( II,E) 

50 SID * (UB-UA)/(2.D0*DF)*V 
CALL AFILL(NF,0, A, 1) 

DO 70 I - 1 , NF2 
C = 0 *D0 
DU 65 M=1,NS 
65 C * C ♦ A { M» I)*S<M) 

70 PD t I ) ~ C 

CALL GFILL <NF,EGE0M 1, 1 I ),G) 

DO 80 l * 1 , NF 3 
C = C.DO 
DC 75 M=1,NF2 
75 C = C + PD(M>*G(M f I) 

80 PCI) - C 

100 CALL PFILLCNF*ELNOt 1, Ell ,P, PP> 
RETURN 
END 


00011160 
00011170 
00011180 
00011190 
00011200 
00011210 
00011220 
00011230 
000 1 1 240 
00011250 
00011260 
00011270 
00011280 
00011290 
00011300 
00011310 
00011320 
00011330 
00011340 
00011350 
0001 1 360 
00011370 
00011380 


SUBROUTINE P FORCE (PFAC T , PREF , NN , P > 

COMPUTE APPLIED NODAL FORCES P. 

PFACT(J) = NODAL LOAD FACTOR FOR REFERENCE VECTOR J. 
PREF(J,l) - NODAL LOAD AT DOF I FOR REFERENCE VECTOR J. 
NN = TOTAL SYSTEM DOF. 

PCI) * APPLIED CUMULATIVE LOAD AT OOF I. 

INTEGER NN 

DOUBLE PRECISION PFACT ( 1 ) * PREF I 2, 1 ) # P( l ) 

INTEGER I 
CO ICO 1*1, NN 

100 PCI) * PFACTC 1)*PREF(1,I ) ♦ PFACT ( 2) ♦PREF ( 2 , 1) 

RETURN 

END 


00011390 
00011400 
00011410 
00011420 
00011430 
00011440 
00011450 
00011460 
00011470 
00011480 
OCO l 1490 
00011500 
00011510 
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n 

t 

U) 

to 


SUBROUTINE E FORCE ( I PR6 SS * PR , PRRE F , Q Q , NE L , NN , NF , E LNC , P P } 

COMPUTE NODAL FORCES PP DUE TO ELEMENT PRESSURES PR. 

IPRESS - NONCONSERVATIVE CODE * 0,1 FOR NO PRE SSURE ♦ PRE SSUftc. 

PR = ELEMENT PRESSURE INTENSITY FACTOR. 

PRREF ( I I - INTENSITY ON ELEMENT I FOR PRESSURE REFERENCE VECTOR. 
CGU) •= CUMULATIVE NODAL DISPLACEMENT AT DOF I. 

NEL * NUMBER OF ELEMENTS. 

NN,NF = TOTAL SYSTEM DCF f DOF PER NODE. 

ELNO 4 J * I ) = NODE NUMBERS FOR ELEMENT I. 

PP(II = COMPUTED NONCONSERVATIVE PRESSURE NODAL FORCE AT OOF I* 
EGEOM ( J , I ) = GEOMETRY FCR ELEMENT I ( B A SE , HE IGHT , PART BASE). 
COMMON/ COMEG/ EGEOM 
INTEGER IPRESS»NEL f NN,NF»ELNOI 3,1) 

DOUBLE PRECISION PR, PRREF (1) , CO ( U .PP ( 1 ) ,£GECM ( 3 , l ) 

INTEGER I.II 

DOUBLE PRECISION C t V21 ( 3 ) f V31 ( 3 1 , G { 9 ) , P ( V ) 

DC 10 1 = 1, NN 
10 PP( I) = 0. DO 

IFI I PRE SS. EQ. 0 ) RETURN 
DO IGU 11=1, NEL 

CALL gFILL«NF f ELNOCi,II) t QQ f Q) 

DO 20 1=1,3 
V2I (I ) = Q( 3 + 1) - 0(11 
20 V3K I > = Q(6<M ) - Q ( I ) 

V 2 H 1 ) = V21 ( 1) + EGE0M1 1, II ) 

V3K1) = V31(l) + EGEOM (3,11 ) 

V3 1 ( 2 ) = V3 l 1 2 ) + EGEOM ( 2 , 1 1 ) 

CALL VCROSSI V21, V31,P) 

C = PR*PRREF ( I I I/6.D0 
DO 50 1=1,3 
PCI) * P(I J *C 
p ( 3+ 1 ) * pin 

50 P(6 + I ) = PII) 

100 CALL PFILL INF, ELNOI 1, I I) , P, PP > 

°ETURN 

ENO 


OCO i 1520 
00011530 
00011540 
00011550 
00011560 
00011570 
00011580 
00011590 
00011600 
00011610 
CCO 11620 
00011630 
0001 1640 
COO 1 1 650 
00011660 
00011670 
00011680 
00011690 
00011700 
OCO 1 1710 
00011720 
00011730 
00011740 
00011750 
00011760 
00011770 
CC011780 
00011790 
00011800 
OCO 11810 
00011820 
00011830 
0001184G 
00011850 
00011860 
00011870 


c 


SUBROUTINE ERCOMP tUO, NN,KFD, PP, P, ERR ) 00011880 

COMPUTE ERROR NORM USING CUMULATIVE FORCES PP AND RESIDUALS P. 00011890 
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C UC = OUTPUT FILE UNIT NUMBER. 

C NN * FORCE -DISPLACEMENT -CONSTRAINT SPECIFICATION FOR DOF I. 

C KFDin = FORCE-DISPLACEMENT-CONSTRAINT SPECIFICATION FOR DOF 

C PPU) = CUMULATIVE NOOAL FORCE AT DCF I. 

C Pill = RESIDUAL (UNBALANCED) NODAL FORCE AT DOF I. 

C ERR = COMPUTED RESIDUAL-FORCE ERROR NORM. 

INTEGER UD » NN *KFD { 1 ) 

DOUBLE PRECISION PPU),PU),ERR 
INTEGER l,J 

DCU6LE PRECISION CUC2 
201 FORMAT ( 1H , * ERROR NORM = # f E12.5) 

ERR = 0 . DO 
Cl = O.DO 
C2 = O.DO 
DO 5 1=1, NN 
J = KFDl I ) 

IF( J.LT.O.OR.J.EQ.DGO TO 5 
p( j) = p( j » ♦ p( n 
pm = o.do 

9 5 CONTINUE 

DO 10 1=1, NN 

w IF(KFD( 1 ).EQ.I)C1 = Cl ♦ DA8S ( P 1 1 )> 

10 C2 = C2 ♦ DABS ( PP ( l ) ) 

IF(C2.GT.0.D0)ERR = CI/C2 

WR I TE ( UO, 20 1 ) ERR 

RETURN 

END 


000U9C0 
00011910 
00011920 
00011930 
00011940 
00011950 
00011960 
00011970 
00011980 
00011990 
COO 12000 
00012010 
00012020 
00012030 
00012040 
00012050 
CC012C60 
00012070 
00012080 
0C012090 
00012100 
00012110 
00012120 
00012130 
00012140 
00012150 
00012160 


SUBROUTINE STRAIN<NEL,ELNO.EGEOM,NF,CC f ECU 0C012170 
COMPUTE STRAINS EE T FROM GLOBAL D I SPLACEMENT S QO. 00012180 
NEL = NUMBER OF ELEMENTS. 00012190 
ELNO ( J , I ) = NODE NUMBERS FOR ELEMENT I. 00012200 
EGEOM ( J , I ) = GEOMETRIC PROPERTIES FOR ELEMENT I. 00012210 
NF = DOF PER NODE. 00012220 
CC(I) = CUMULATIVE NODAL DISPLACEMENT AT DOF I. 00012230 
EET(J.I) = COMPUTED CUMULATIVE STRAINS (XX,YY,XY) FOR ELEMENT I. CC012240 
INTEGER NEL » ELNO ( 3 * l ) , NF 00012250 
DOUBLE PRECISION EGEOH ( 3 f 1 > » GO < 1) , EE Tt 3 , 1) 00012260 
INTEGER II 00012270 



CCU8LE PRECISION Q(9),U<6) 

DO 10 11=1 »NEL 

CALL WFILLINF, ELNOt 1, I I ) ,QQ,Q) 
CALL DFILLtNF,EGEGfMl # in,Q,D) 
10 CALL EFILL(NF»D*EET( 1,11 ) ) 
RETURN 
END 


00012280 

00012290 

00012300 

00012310 

00012320 

00012330 

00012340 


C 

c 

c 

c 

c 


0 

1 

OJ 



c 

c 

c 

c 


OCLIBLE PRECISION FUNCTION ENERGY ( I I , ET I 

EVALUATE ENERGY DENSITY FOR ELEMENT II AT STRAINS ET (MOONEY). 
I l * ELEMENT NUMBER. 

ET(I) = CUMULATIVE STRAINS (XX,YY t XY) FOR ELEMENT. 

IMAT(I) * MATERIAL NUMBER FOR ELEMENT I. 

CCII I) V CC2U) * MATERIAL PROPERTIES FOR MATERIAL I. 
COMMON/COMMA T/ I MAT/COMENU/CC 1 »CC2 
INTEGER n,lMAT(l) 

DOUBLE PRECISION ET U ) , CC1 ( 5 ) , CC2 < 5 ) 

INTEGER I 

DOUBLE PRECISION C I tC2 ,A • B , D* 1 1 , 12 

I = IMATUI) 

Ci = CC1II ) 

C2 = CC2( I ) 

A = 2.D0*(ET< 1)+ET(2) ) 

B = 4.D0*ETm*ETI2l - ET(3)**2 
D = 1.1)0 4 A ♦ B 

II = ( A* ( A-f 8 )-B ) /D 
12= II + R* ( A + B ) /D 
ENERGY = C1*I1 + C2* 1 2 
RETURN 

END 


00012350 

00012360 

00012370 

00012380 

00012390 

00012400 

00012410 

00012420 

00012430 

00012440 

00012450 

00012460 

00012470 

00012480 

00012490 

00012500 

00012510 

00012520 

00012530 

00012540 

00012550 

00012560 


SUBROUTINE EVAL ( II ,ORD , N » FO « DF ♦ ESTOR ) 

EVALUATE STRAIN ENERGY CF ELEMENT II AS FUNCTION OF STRAINS TO 
ESTABLISH A COMPLETE INTERPOLATING POLYNOMIAL UF ORDER ORD L.E. 
II = ELEMENT NUMBER. 

ORD * MAXIMUM TENSOR ORDER TO BE USED FOR DIFFERENCE EXPANSION. 
N = DIMENSION OF TENSORS. 

FOCI) = CURRENT VALUE GF INDEPENDENT VARIABLE I. 


00012570 
00012580 
3.00012590 
C001 2600 
00012610 
00012620 
00012630 
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CPU) = FINITE DIFFERENCE IN INDEPENDENT VARIABLE t. 

ES TOR I I ) * STORAGE VECTOR FOR ENERGY EVALUATIONS I. 

ENERGY! II, F) GIVES ENERGY FUR ELEMENT II AT VARIABLE STATE P* 
INTEGER II ,ORD , N 

DOUBLE PRECISION FO ( 1 ), DF ( I) , ES TCR ( 1 ), ENERGY 
INTEGER 1,J,K,M,IE 
DOUBLE PRECISION F(3) 

IE = l 

ESTORIIE) * ENERGY! I I, FO) 

IFIORD.LT, DGO TO IOO 
UG 10 1=1, N 
IE = I E + l 
DO 5 M= 1 ,N 
5 F ! M ) - FOCM) 

F! I ) * F! I ) + OF! I ) 

10 ESTORIIE) = ENERGY ! 1 1 , F ) 

I F CORD*LT • 2 ) GO TO 100 
DC 20 1=1, N 
DO 20 J= 1 » I 


o 


IE = 

IE + 1 


GJ 


DC 15 

M*1,N 



15 

F(M) 

= FO!M) 




F ( I ) 

= F C I > 

♦ OF! I) 



F ( J I 

= F(J) 

♦ CF(J> 


20 

ESTOR 

(IE) = 

ENERGY! 


I F C ORD* LT * 3 ) GO TO 100 
DO 30 1=1, N 
DO 30 J*l, I 
DO 30 K = 1 1 J 
IE = IE + 1 
DC 25 M*1,N 
25 F ( M ) * FO!M) 

F( n = f< n + df! n 

Fiji = F I J ) ♦ DF! J) 

F ( K > = F < K ) ♦ DF(K) 

30 ESTORtlE) = ENERGY (II »F ) 
100 RETURN 
END 


00012640 
00012650 
00012660 
00012670 
00012680 
00012690 
OOC 12 700 
00012710 
00012720 
00012730 
00012740 
00012750 
00012760 
00012770 
OCO 12780 
00012790 
00012800 
00012810 
00012820 
00012830 
00012840 
00012850 
00012860 
00012870 
00012880 
00012890 
00012900 
00012910 
00012920 
00012930 
00012940 
00012950 
00012960 
00012970 
00012980 
00012^90 
00013000 
00013010 
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SUBRCUT LNE U2F0RM ( N • DF # ESTOR » US TOR ) 

FGRM STRAIN ENERGY TENSORS USTOR USING OUADRAIIC POINTS ESTOR. 
N = DIMENSION OF TENSORS. 

CFU> - FINITE DIFFERENCE IN INDEPENDENT VARIABLE I. 

ESTORII) = STORAGE VECTOR FOR ENERGY EVALUATION I. 

LiSTORin = STORAGE VECTOR FOR TENSOR COMPONENT I. 

INTEGER N 

DOUBLE PRECISION DF U) , ESTOR ( 1 >, USTOR t 1) 

INTEGER I, J, II, 12, LOCH, N1 
DOUBLE PRECISION C ,C I , C J ,C I J , D I , D J 
N1 * i + N 

11 = X 

12 - NX 

C FORM OTH-ORDuft TENSOR 

C - ESTOR! 1» 

USTOR! 1 I = C 

C FORM IST-ORDER TENSOR 

DO TOO 1*1, N 
DI = DF l IJ 

9 I X * I 1+1 

w Cl * ESTOR! I 1) 

^ LCCII * N1 + l* ! 1+11/2 

C FORM X TYPE TERM 

USTOR l II) * <- X . 5C0*C + 2 . DQ*C I - .5DO*ESTOR(LOCI I ) )/DI 
C FORM 2ND-GRDER TENSOR 

DO 100 J*1 ,1 
CJ * OI*DFU> 

12 * 12+1 

CIJ * ESTOR! 12) 

IF!J*LT.I I GO TO 79 
C FORM XX TYPE TERM 

USTOR ( 12) * !C - 2.D0*Cl + CIJI/DJ 
GO TO 100 

79 CJ = ES TOR ( 1+J ) 

C FORM YX TYPE TERM 

USTOR ( 12) * 1C - Cl - CJ + C I J ) /D J 
100 CONTINUE 
RETURN 
END 


00013020 
OCO 1 30 30 
00013040 
00013050 
00013060 
00013070 
00013080 
00013090 
00013100 
00013110 
00013120 
00013130 
00013140 
00013150 
00013160 
00013170 
00013180 
00013190 
00013200 
00013210 
00013220 
00013230 
00013240 
00013250 
00013260 
00013270 
00013280 
00013290 
00013300 
00013310 
00013320 
00013330 
00013340 
00013350 
00013360 
00013370 
OCO 1 3380 
00013390 
00013400 
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} 


n C 
u> 

'•j 

C 


c 
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SUBROUTINE U3FORM ( N , UF , ESTQR , USTOR > 

FORM STRAIN ENERGY TENSORS USTOR USING CUBIC POINTS ESTOR* 

N = DIMENSION OF TENSORS * 

CFU) » FINITE DIFFERENCE IN INDEPENDENT VARIABLE I. 

ESTOR! N = STORAGE VECTOR FOR ENERGY EVALUATIONS I* 

USTOR ( I ) = STORAGE VECTOR FOR TENSOR COMPONENT I. 

INTEGER N 

DOUBLE PRECISION DF(l) , ESTOR il ) ,UST0R (I) 

INTEGER I * J • K v I 1,12,1 3, LOC II t LOC J J , LOC II I , LOG II J ,LCC I J J , LOC IK * 
1 LCCJK »N1 ,N2 

DOUBLE PRECISION C , C I ,C J ,CK ,C I J , C I K , C JK ,C I JK , C 116 ,C 1 3 , D I , D J # OK 
Nl - 1+N 

N2 - Nl ♦ N* ( N+ l ) / 2 
C 1 16 = 11. D0/6*00 
C 13 * i.D0/3*D0 

11 = 1 

12 * Nl 

13 * N2 

FORM OTH-ORDER TENSOR 
C - ESTOR ( 1 ) 

USTOR (1) = C 

FORM 1ST-0RDER TENSOR 
CO ICO I~1,N 
D I = DFU ) 

11 * I1M 

Cl * ESTOR (II) 

LOCI I = Nl ♦ I*< I + D/2 
LOCIII * N2 ♦ I«(lU)MI + 2)/6 
FORM X TYPE TERM 

USTOR 111) * !- C 1 16*C ♦ Ci3*EST0R<LGCI I I) ♦ 3.00+CI 
1- 1.5D0*EST0R(L0Ci I H/DI 

FORM 2ND-0RDER TENSOR 
OC 100 J*l,l 
CJ = D I *0F ( J ) 

12 = 1 2 ♦ 1 

Cl J = ESTOR! 12 I 
CJ = ESTOR I 1 ♦ J ) 

I F ( J*LT* I ) GO TO 79 
FORM XX TYPE TERM 


0001 3410 
00013420 
00013430 
00013440 
00013450 
CO 01 3460 
00013470 
00013480 
00013490 
00013500 
00013510 
00013520 
00013530 
00013540 
00013550 
00013560 
00013570 
00013580 
00013590 
00013600 
00013610 
00013620 
00013630 
00013640 
00013650 
00013660 
00013670 
00013680 
00013690 
00013700 
00013710 
00013720 
00013730 
00013740 
00013750 
00013760 
00013770 
00013780 
00013790 


l 


C 
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US TOR (12) = <2.00*C - ESTOR { LOC I I I J - 5.00*CI + 4.C0*CIJ)/DJ 
GO TO 81 

79 LCCJJ * N1 + J* ( J + 1 ) /2 

LOCIJJ = N2 «• i I — 1 I * I*< I + l)/6 ♦ !J+i>*J/2 
LOCI1J * N2 ♦ (I- 1 1 *I*< I + 4 > /6 + J 
C FORM YX TYPE TERM 

UST0RU2) = { 2*D0*C - 2.5DO*CJ + . 5DO+ESTOR ( LOC J J ) 

1 - • 5 CO* ES TOR i LOC 1 1 J ) - . 5D0*E STCR UCC I J J > + . 500*ESTCR { LOC 1 1 > 

2 - 2 * 5DO*C I + 3 • DO*C I J > /DJ 

C FORM 3R0-0RDER TENSOR 

81 00 ICO K = 1 f J 
CK = DJ*DF(K) 

13 = 13+1 

CIJK = ESTOR ( I 3 ) 

LOG IK a Nl + (1-11*1/2 + K 
CIK « ESTGRILOCIK) 

CK = ESTORIi+Kl 
IF( J.LT.DGO TO 89 
C FORM XXX TYPE TERM 

o IFCK.EQ. J JUS TOR < 13 1 * (- C + CIJK + 3.00*CI - 3.DO*CIJ)/DK 

Cj C FORM YYX TYPE TERM 

00 IF !K .LT. J MJSTOR (I 3 ) = < -C+CK+C I JK-C 1 J + 2.D0*CI - 2.C0*ClK)/DK 

GO TC 100 

89 LOC JK = N1 ♦ (J-i)*J/2 ♦ K 
CJK = ESTOR ( LOC JK ) 

C FORM YXX TYPE TERM 

I F ( K. EG „ J ) USTOR (13) = (-C ♦ 2.D0*CJ -CJK+CIJK+CI - 2.D0*CIJ)/DK 
C FORM ZYX TYPE TERM 

IF(K*LT.J)U5T0R( I 3) * (-C + CK+CI+CJ + CIJK - C I J~C I K-C JK ) /OK 
100 CONTINUE 
RETURN 
END 

SUBROUT INE UFILLU 1,GRD, ET *USTOR ) 

FILL USTOR OF ORDER ORC FOR ELEMENT II. 

I I = ELEMENT NUMBER. 

URD * MAXIMUM TENSOR ORDER TO BE USED FOR DIFFERENCE EXPANSION. 
ETUI = CURRENT VALUE CF STRAIN COMPONENT I. 

USTOR! I ) * STORAGE VECTOR FOR TENSOR COMPONENT I. 

NS = NUMBER OF STRAIN COMPONENTS. 

CFE * FINITE DIFFERENCE SUE FOP. STRAIN VARIABLES. 


00013800 

00013810 

00013820 

00013830 

00013840 

00013850 

00013860 

00013870 

00013880 

00013890 

000139C0 

00013910 

00013920 

00013930 

00013940 

00013950 

00013960 

00013970 

00013980 

00013990 

0C014C00 

00014010 

00014020 

00014030 

00014040 

00014050 

00014060 

00014070 

00014080 

00014090 

00014100 

00014110 

00014120 

00014130 

00014140 

COO 14 1 50 

00014160 

00014170 

CC014180 

00014190 



no no 


COMMCN/C0MNS/NS/COMOFE/DFE 
INTEGER 1 1 tOROf NS 

DOUBLE PRECISION E T ( 1 ) ,US TOR (li ,DFE 
INTEGER I 

DOUBLE PRECISION ESTOR ( 20 ) *DF ( 3 I 
DO 10 1=1, NS 
10 CFI I) = DFE 

CALL EVALl 1 1 ,ORD ,NS , E T , DF , ES TOR > 
IFI0RD.EQ.2JCALL U2F0RM < NS, DF , ESTOR , USTOR ) 
IF tORD.ee. 3 )C ALL U3FCRM ( NS , DF , E S TOR , US TOR ) 
RETURN 
END 


00014200 
00014210 
00014220 
0 0014230 
00014240 
00014250 
00014260 
00014270 
00014280 
00014290 
00014300 
00014310 


Q 

I 

to 

VO 


SUBROUTINE CFORM ( Q , EGECM, CMAT ) 

FORM 3X9 PRESSURE LOAD MATRIX CM A T . 

GU) * CUMULATIVE NODAL DISPLACEMENT AT DOF I. 

EGEOM ( J , I > = GEOMETRIC PROPERTIES FOR ELEMENT I. 

CMAT * UNSYMMETRIC STIFFNESS PARTITION DUE TO PRESSURE LOADS. 
DOUBLE PRECISION Q (1) , EGEOM ( 1) ,CM AT ( 3 , 9 ) 

INTEGER I 

DOUBLE PRECISION CX2 ,C Y2 ,CZ2 ,CX3 ,C Y3 ,CZ3 
CX2 * EGEOM ( 1 ) + 0(4) - Q(l) 

CY2 = Q ( 5 > - Q I 2 I 
CZ2 = 0(6) - Qt 3) 

CX3 * EGEOM ( 3 ) + 017) - Qtl) 

CY3 = EGEOM 1 2 ) + 0(8) - 0(2) 

CZ3 = Q ( 9 ) - 0(3) 

DO 10 1*1,3 
CHAT ( 1,1)* 0. DO 
CMAT ( I, 1 + 3) * 0 * DO 
10 CMAT ( I, 1+6) * 0.00 
CMAT (1,2) * CZ2-CZ3 
CMAT (1,3) * -CY2+CY3 
CMAT(1,5) * C Z 3 
CMAT ( 1,6) = -CY3 
CMAT< 1, 8) * -CZ2 
CMAT (1,9) * CY2 
CMAT(2,1) = -CZ2+CZ3 
CMAT (2,3) * CX2-CX3 


000X4320 

00014330 

00014340 

00014350 

00014360 

00014370 

00014380 

00014390 

00014400 

00014410 

00014420 

00014430 

00014440 

00014450 

00014460 

00014470 

00014480 

00014490 

00014500 

00014510 

00014520 

00014530 

00014540 

00014550 

00014560 

00014570 
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CMATI 2,4 J 

rr 

-CZ3 

00014580 

CMAT (2,6) 

X 

CX 3 

00014590 

CMAT (2,7) 

* 

CZ 2 

00014600 

CM A T ( 2 » 9 ) 


-CX2 

00014610 

CMAT(3,l) 

= 

CY2-CY3 

00014620 

CMAT (3,2) 


-CX2+CX3 

00014630 

CMAT (3,4) 

= 

CY3 

00014640 

CMAT ( 3* 5 I 

- 

-CX3 

00014650 

CMAT (3,7) 

= 

-CY2 

00014660 

CMAT (3,8) 

* 

CX2 

00014670 

RETURN 



OCO 14680 

END 



00014690 


SUBROUTINE GENER8 ( 1 1 , K ) 

FORM STIFFNESS MATRIX K FOR ELEMENT II IN NODAL COORDINATES. 

UiK = ELEMENT NUMBER , EL EMENT STIFFNESS MATRIX. 

NStNF = NUMBER OF STRAIN COMPONEN TS • DOF PER NODE. 

ELNQ ( J , I ) * NODE NUMBERS FOR ELEMENT I. 

EGEOM ( J , 1) - GEOMEIRIC PROPERTIES FOR ELEMENT I. 

Tin = THICKNESS OF ELEMENT I. 

CUD = CUMULATIVE NODAL DISPLACEMENT AT DOF I. 

IPRESS * NONCONSERVATIVE CODE = 0,1 FOR NO PRESSURE, PRESSURE. 

PR = ELEMENT PRESSURE INTENSITY FACTOR. 

PRREFII) = INTENSITY ON ELEMENT I FOR PRESSURE REFERENCE VECTOR. 
CCKMCN/COMNS/NS/CGMNF/NF /COME L /E INC/COMEG/ EGEOM/CGM T /T/COMQQ/ QQ 
commcn/cgmipr/ipress/cgmpr/pr/comprr/prref 

INTEGER 1 1 ,NS,NF,ELN0(3, I ) , IPRESS 

DOUBLE PRECISION K l 9 ,9 ) , EGEOM ( 3 , 1 ) , T (I) , GG (1) , PR , PRREF (1) 

INTEGER I, J, IU,NF2,NF3,I 1 

CCUBLE PRECISION V »E ( 3 I , S 13) , DO I 3 , 3 I , D t 6 ) ,Q I 9 ) , A ( 3 , 6 ) , 
1H(6,6),G(6,9),UST0R{ 10) 

DOUBLE PRECISION C , P6 , CMAT (3,9) 

ECU I VALENC E t A ( 1 ) , G( L>> 

V = .5D0*T(I I )*EGEGM( I, I U*EGE0M12, 1 1 ) 

NF2 = NF *2 
NF3 = NF *3 

CALL QFILLINF, EL NO (i,II),OQ,Q) 

CALL OF ILLlNFtEGEOMI 1 , I I ) ,0,0} 

CALL EF I LL ( NF , 0 , E I 


00014700 
00014710 
CC014720 
00014730 
00014740 
00014750 
00014760 
00014770 
00014780 
00014790 
00014800 
00014810 
00014820 
COO 148 30 
00014840 
00014850 
00014860 
00014870 
00014800 
00014890 
00014900 
00014910 
COO 14920 
00014930 
00014940 
00014950 
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CALL UFILLUI,2,E,UST0R) 

IU = 1 

DO 10 1*1, NS 
IU = lU+i 

1C S(I) = USTOR ( IU)*V 
DO 20 1*1, NS 
CO 20 J=i,I 
IU * IU+1 

001 I, J) * USTOR ( I U ) *V 
20 COIJtl) * DO ( ! , J ) 

CALL AF I LL { NF , D , A , 1 ) 

CALL MTRAN(D0,3,NS,A,6,NF2,H> 
DO 50 I-l,NF 
II = NF + I 

hu, n = hu, n ♦ sm 

H(1 1,11 ) - H(I 1, III ♦ S ( 2 1 
HU, II J = H(I, I 1) + SI 3) 

50 HI II, I) * HUM) + St 3) 

CALL GFILLtNF, EGEOMt 1,11), G) 

9 CALL MTRAN(H,6,NF2,G,9,NF3,K) 

^ IFUPRES$.EQ.0)G0 10 1C1 

M CALL CFORM{Q,EGEOM(l,m,CMAT» 

P6 = PR*PRREF( II 1/6. DO 
DO ICO 1=1, NF 
DO 100 J* l ,NF 3 
C = P6*CMAT( T , J ) 

KIM) = K ( I , J ) - C 
K I I ♦ 3 » J I * K t I +3 , J ) — C 

100 Kt 1+6, J) = K( 1+6, J) - C 

101 CALL ROTKI NF,ELN0U, II > *K ) 
RETURN 

END 


00014960 

00014970 

00014980 

00014990 

000150CO 

00015010 

00015020 

00015030 

00015040 

00015050 

00015060 

00015070 

00015080 

00015090 

00015100 

00015110 

00015120 

00015130 

00015140 

00015150 

00015160 

00015170 

00015180 

00015190 

00015200 

00015210 

00015220 

00015230 

00015240 

00015250 

00015260 

00015270 


SUBROUTINE USUM 1 ( GRO, USTOR , N , 0 , P ) 00015280 
FOR 0RD = 2 COMPUTE PCI) = USTOR ( I « J ) *0 t J ) • 00015290 
FCR CRD 3 3 COMPUTE PCI) = USTCRt I ,J,K)*£{J)*G(K) • 0C015300 
ORD = TENSCR ORDER TO BE USED FOR FINITE-DIFFERENCE EXPANSIONS. 00015310 
USTOR = TENSOR STORAGE ARRAY. 0C015320 
N = TENSOR DIMENSION. 00015330 



0 * TENSOR VECTOR ARGUMENT. 

P - COMPUTED SUMMED VECTOR, 

INTEGER ORO,N 

DOUBLE PRECISION US TOR 1 1 > . P ( I ) t Q ( 1 ) 
INTEGER I*J,K t fU 
DOUBLE PRECISION QI , QJ »QK , Q I J , C 
CC 100 I = I , N 
100 PUJ = 0. DO 
IU * 0 

IF(0R0.GT,2)G0 TO 201 
DC 200 1=1, N 
QI = tiU) 

DO 200 J=1,I 

IU * IU+1 

C = USTOR I IU) 

p( I) = P < I) + C*Q <J ) 

if(j.ne*i>pij) = p{j) + c *c i 

200 CONTINUE 
RETURN 

201 DO 3C0 U1,N 
QI = Q(I) 

00 300 J = l, I 
QJ = Q(J) 

CIJ = QI*QJ 
DO 3C0 K = I , J 
QK = Q( K. ) 

IU = IU+l 
C * USTOR i IU) 

PU) = P ( I) ♦ C*Q J*CK 
1F(K.EQ.J)G0 TO 61 
PU > * P( I ) ♦ C*QJ*QK 
GO TO 71 

61 I F I J*£Q • I ) GO TO 300 

PIJ) * P(J) + 2.D0«C< c QIJ 
GO TO 300 

71 P ( K ) * P ( K ) ♦ C*QIJ 
I F ( J.EQ* I )G0 TO 3G0 
PU) = P(J) ♦ 2 • DO*C*U I *QK 
P(K) ^ P(K) ♦ C*QU 
300 CONTINUE 


00015340 

00015350 

00015360 

00015370 

00015380 

00015390 

00015400 

00015410 

00015420 

00015430 

00015440 

00015450 

00015460 

00015470 

00015480 

00015490 

00015500 

00015510 

00015520 

00015530 

00015540 

00015550 

00015560 

00015570 

00015580 

00015590 

00015600 

00015610 

00015620 

00015630 

00015640 

00015650 

00015660 

00015670 

00015680 

00015690 

00015700 

00015710 

00015720 

00015730 
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RETURN 

END 


00015740 

00015750 


SUBROUTINE USUM2 1 1 USTOR , N* Cl * Q2 , P > 

COMPUTE P(I> » U$T0R(I,J f K)*Gl(J>*Q2(K). 
USTOR = TENSOR STORAGE ARRAY. 

N = TENSOR DIMENSION. 

01*G2 = TENSOR VECTOR ARGUMENTS. 

P - COMPUTED SUMMED VECTOR. 

INTEGER N 

DOUBLE PRECISION USTOR I L ) , Q 1 ( 1) » QZ <1 >» P (I) 
INTEGER 1 1 J t K , IU 
DOUBLE PRECISION C 
DC 100 1 = 1, N 
100 PU> = O.DO 
IU = 0 

DO 200 1=1, N 
00 200 J*1,I 
DO 200 K=i,J 
^ IU = IU+1 

w C * USTOR! IU) 

pm = pm * c*qi(j)*g 2 {k) 

IF (K .EQ. J ) GO TO 161 

pin * Pin ♦ c*qi i k > *G2 ( j ) 

GO TO 171 

161 IFIJ.EQ.DGO TO 2C0 

PIJ) = PIJ) ♦ C*(Q1I I)*G2( J) +011 J)*Q2I I) ) 

GO TO 200 

171 PIK) = PIK) + C*0im*02CJ) 

IFIJ.EQ.DGO TO 2C0 

PIJ) = PIJ) 4 C*(C1I n*Q2(K)+Gi<K)«Q2( 1) ) 

PIK) = PIK) 4 C*01 I J ) *02 I I ) 

200 CONTINUE 

RETURN 

END 


C001 5760 
00015770 
00015780 
00015790 
00015800 
00015810 
00015820 
00015830 
00015840 
00015850 
00015860 
00015870 
00015880 
00015890 
00015900 
00015910 
00015920 
00015930 
00015940 
00015950 
00015960 
00015970 
00015980 
00015990 
00016000 
00016010 
00016020 
00016030 
00016040 
C0016050 
00016060 
00016070 


SUBROUTINE P 1C0MP ( NN ,CCSTAR ,CQDOT , PRO , PR l , PP ) 00016080 

C - COMPUTE 2ND ORDER FUNDAMENTAL LOAD TERM PP USING FUNDAMENTAL GC016090 
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n 

i 

4 ^ 


c 


C- 

c 


DISPLACEMENTS (REFERENCE VALUES CQSTAR AND RATES CQDCT ) . 

NN * TOTAL SYSTEM DOF. 

CGSTARII) s CURRENT CUMULATIVE NCOAL DISPLACEMENT AT NODE I. 
CCDOT(I) = NOOAL DISPLACEMENT RATE AT NODE I. 

PRO , PR 1 = PRESSURE FACTORS AT START, END CF LCAD STEP. 

PPU) = COMPUTED PSUEDG FORCE TERM AT DOF I. 

CRD » MAXIMUM TENSOR ORDER TO BE USED FOR DIFFERENCE EXPANSION. 
NEL t NS, NF - NUMBER OF ELEMENTS , STR A I N COMPONENT S * OOF PER NODE* 
ELNO(J,n * NODE NUMBERS FOR ELEMENT I. 

EGEOM(J,I} = GEOMETRIC PROPERTIES FOR ELEMENT I. 

T(I) = THICKNESS OF ELEMENT I. 

IPRESS = NONCONSERVAT I VE CODE = 0,1 FOR NO PRESSURE , PRESSURE • 
PRREFH) * PRESSURE INTENSITY ON ELEMENT I FOR PRESSURE VECTOR. 
COMMON/ COMCRO/CRD/COMNEL /NEL /COMNS/NS/CGMNF/NF 
CCMMCN/COMEL/ELNG/COMEG/EGEOM/COM T/T 
COMMON/COM I PR/ 1 PRESS/COMPRR/PRREF 
INTEGER NN»ORO,NEl,NS,NF,ELNG(3,lI ,IPRES$ 

DOUBLE PRECISION QQSTAR ( I) , QQCOT i 1) , PRO, PR 1 »PP( 1 },EGEGM(3*1) • T( I 
IPRREF(l) ’ 

INTEGER NF2, NF3, IU2, IU3, I , II ,H 

DOUBLE PRECISION V»C»QSTAR(9) , QDCT (9 > , DSTAR ( 6 ) ,DDGT(6),ESTAft(3), 
1 EDOT ( 3 ) » ASTARI 3 » 6 I » A IDCT I 3 »6 ) t STCR A ( 3 ) ? STORB ( 3 ) , STORM (6) ,G(6,9) , 
2P ( 9 ) tUSTAR (20) ’ * 

DOUBLE PRECISION CO , C 1 , VST AR ( 6 ) , VDCTI 6 ) , V l( 3 ) , V2 ( 3 ) , V 3 ( 3 ) 

NF2 * NF*2 
NF3 * NF*3 
IU2 ~ 2 + NS 
IU3 - IU2 ♦ NS* ( NS + 1 ) /2 
DO 5 I*L,NN 
5 PP( n = 0 . DO 
CO ICOO 1 1 = I »NEL 

V ^ .bD0*Tnn*EGECMIl,m*EGEGM(2tin 

FORM FUNDAMENTAL REFERENCE QUANTITIES 
CALL QFILL INF,ELNO( 1 ,1 I ) , CCS TAR » CS TAR ) 

CALL OF ILL ( NF , EGEOM ( 1,11 >♦ GST AR , DSTAR ) 

CALL AFILL(NF f DSTAR f ASTAR t n 
CALL EFILL (NF, DSTAR, ESTAR) 

FORM STRESS-STRAIN TENSORS 
CALL UFILLII I , ORD , ESTAR , USTAR ) 

form fundamental rate quantities 


00016100 
00016110 
00016120 
00016X30 
00016140 
00016150 
COO 16 160 
00016170 
00016180 
00016190 
00016200 
00016210 
00016220 
00016230 
00016240 
00016250 
00016260 
) t GOO 162 70 
00016280 
00016290 
00016300 
00016310 
00016320 
OCO 16330 
00016340 
00016350 
00016360 
00016370 
00016380 
00016390 
00016400 
00016410 
00016420 
00016430 
00016440 
00016450 
00016460 
00016470 
00016480 
00016490 



CALL WFILUNF* ELNOi 1, I 1 ) .QQDCT.QDOT) 

CALL OF ILUNF»EGEOM< 1*11 > * COOT t OOO T) 

CALL AF ILL ( NF , COOT * A 10UT f 0 ) 

CC 30 I = 1 * NS 
C - O.DO 
00 25 M* 1 , NF2 

25 C * C + ASTAR(I,M) *ODUT ( M > 

30 EC0T1 U = C 

FORM STORM = DO PORTION OF DISPLACEMENT DERIVATIVE PSUEDO FORCES 
CALL USUMlt 2,USTARUU2) , NS *EDOT , S TOR A I 
CC 110 1*1 * NF2 
C * o.DO 
DO 105 M* 1 f NS 

105 C = C ♦ STCR A { M ) +A 100T ( M -» I ) 

110 STORM I I ) * 2.D0*C 
DO 1 1 A I* 1 »N S 
C * O.DO 
DC 112 H*1,NF2 

112 C * C ♦ A 100T < I * M ) *000 T ( M ) 

114 ST0R8I M = C 

CALL USUMl(2»USrAR( IU2 J »NS*STORB, STCRA) 

DC 120 1*1, NF2 
C = O.DO 
DO 115 M= 1 , NS 

115 C * C ♦ STORA<M»*ASTAR(M, I ) 

120 STORM ( I ) * STORM ( I > + C 

1FI0RD.LT. 3>G0 TO 501 

ACD Dl PORTION OF DISPLACEMENT DERIVATIVE PSUEDO FORCES TO STORM 
CALL USUMU 3*USTARtIU3> ,NS ,EDOT , STCRA I 
DO 210 1=1, NF2 
C * O.DO 
DC 205 M = 1 ,NS 

205 C = C + STORA(M)*ASTA«(M,n 
210 STORM! 1 ) * STORM(I) + C 

COMPUTE ELEMENT FORCES Pill = VOLUME INTEGRAL OF G(M f I )*STGRM(M) 
501 CALL GF ILL (NF,6GE0MI1, II ) ,Gi 
DC 510 1*1, NF3 
C = O.DO 
DO 505 M*l, NF2 
505 C = C ♦ G(M f ! >*STORM(Mi 


000165C0 

00016510 

00016520 

00016530 

00016540 

00016550 

00016560 

00016570 

00016580 

00016590 

00016600 

00016610 

00016620 

00016630 

00016640 

00016650 

00016660 

00016670 

00016680 

00016690 

00016700 

00016710 

00016720 

00016730 

00016740 

00016750 

00016760 

00016770 

00016780 

00016790 

00016800 

00016810 

00016820 

00016830 

00016840 

00016850 

00016860 

00016870 

00016880 

0001689a 
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510 P(I> - C*V 

IF< IPRESS.EQ.OIGO TO 1CC0 
ACD NQNCONSERVAT [VE PRESSURE FORCES TO P 
VSTARU) = EGEOHIltll) ♦ QSTAR(4) - QSTAR(l) 
VSTAR ( 2 ) 5 QSTAR ( 5 ) - . QSTAR ( 2 ) 

VSTAR ( 3 ) = QSTAR I 6 ) - QSTAR (3) 

VSTAR(4) - EGEQM(3,II) + QSTAR ( 7 ) - CSTAR(l) 
V S T AR ( 5 ) * EGEOM { 2 » 1 1 ) + QSTAR t 8) - QSTAR ( 2 ) 
VSTAR ( 6 ) * QSTAR ( 9 ) - CSTAR<3) 

V DO T 111 * QOGT { 4 ) - Q0GT<1I 
VCOT ( 2 ) = QOO T { 5 ) - QCCH2J 
VCO H 3 ) - QOOT < 6 ) -.0CGT(3) 

VDOT (4 ) = QOOT { T ) - QDGT(l) 

VCOT ( 5 ) * QOOT ( 8 ) - GDCTI2) 

VCOT ( 6 ) = QDO T ( 9 ) - QDCT(3) 

CO = PRO*PRREF( I I ) /3 *00 

Cl = <PR1-PR0)*PRREF(I [ } /3. DO 

CALL VCRCS$IVD0T,VSTAR(4),Vi) 

CALL VCROSS<VSTAR#VDOT ( 4 ) » V2 ) 

CALL VCROSS ( VDOT »VDOT < 4 ) , V3 ) 

CO 610 1=1,3 

C - Cl*{ VI ( I) + V2 ( 1} ) + C0*V3(I) 

P( U = P < I > - C 
P(U3) = PU+3) - C 
610 P< 1+6) = P< 1+6) - C 

ACC ELEMENT FORCES P TO SYSTEM FORCES PP 
1000 CALL PFILL(NF f ELNCU,in ,P,PP) 

RETURN 

END 


00016900 

00016910 

00016920 

00016930 

00016940 

00016950 

00016960 

00016970 

00016980 

00016990 

00017000 

00017010 

00017020 

00017030 

00017040 

00017050 

00017060 

00017070 

00017080 

00017090 

00017100 

00017110 

00017120 

00017130 

00017140 

00017150 

00017160 

00017170 

00017180 


SUBROUTINE RATES(KMAT,Pl t NN,KFOtRP f PRO t PRl,LSIGN,RL,RRL»RQ,RRQ 
COMPUTE 1ST AND 2ND PATH RATES FOR LOAD DIRECTION VECTOR RP. 
LOAD PARAMETER RATES = RL,RRL. DISPLACEMENT RATES * RQ*RRQ. 
KMAT = SYSTEM JACOBIAN STIFFNESS MATRIX. 

PI = TEMPORARY FORCE STORAGE VECTOR. 

NN = TOTAL SYSTEM DOF. 

KFDU) = FORCE-DISPLACEMENT-CONSTRAINT SPECIFICATION FOR DOF I 
RP(I) - RESICUAL LOAD {LOAD STEP) AT DOF I. 

PRO t PR 1 = PRESSURE FACTORS AT START, END OF LOAD STEP. 


00017190 
00017200 
00017210 
00017220 
0001 7230 
0001/240 
OCO 17250 
0001/260 
00017270 
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LSIGN = ♦ IF LOAD PARAMETER IS I NCRE AS I NG , CECREAS I MG * 

RL*RRL = COMPUTED LOAD PARAMETER 1ST , 2ND ORDER RATES. 

RQU),RRQ<I) = COMPUTED 1ST, 2ND CROER DISPLACEMENT RATE AT DOF I* 
CCU) * CURRENT CUMULATIVE DISPLACEMENT AT DCF I. 

CGMMQN/CGMCQ/CQ 
INTEGER NN , KFD ( i ) 

DOUBLE PRECISION RP U ) , PRO , PR 1 , LS I GN ,RL , RRL , RC ( l ) t RRC 1 l ) , QQi 1 ) , 
i KMAT ( NN ,NN ) , P 1 ( l) 

INTEGER I 

DOUBLE PRECISION RSIGN 
CALL SOLVE (KMAT , NN , KFC , R P , RQ ) 

CALL P1CCMP<NN,C0,RQ,PR0,PR1,P1 ) 

RL = 0* DO 

RRL = O.CO 

DC SO I - 1 , NN 

IFIKFOI I ) • LT *0 ) GO TO 49 

RL * RL ♦ RP( I >*RQII ) 

RRL = RRL * PHI )*RQ< I ) 

GO TO 50 

49 PHI) = 0 * DO 

50 CONTINUE 

CALL SOLVE {KMAT, NN , K FD , P l , RRQ ) 

DO 55 1=1, NN 

IF(KFOm.GT.O)RRL = RRL ♦ RPm*RRfl(t) 

55 CONTINUE 

RSIGN = 1 . DO 

IF( RL.LT.O.DORSIGN = -l.DO 
RL = RS IGN /RL 

RRL = RSIGN*RL**2*RRL*.5DO 
DO 60 I = i » NN 

60 RROlfl = RRL*RCU) - RL*RRG ( I ) 

RL = LSIGN*DSQRT (RL ) 

DO BO 1=1, NN 
80 RC(I) = RL *RQ < I ) 

RETURN 

ENO 


COO 1 7280 
00017290 
00017300 
CC017310 
00017320 
00017330 
00017340 
00017350 
00017360 
00017370 
CC01 7380 
00017390 
00017400 
00017410 
00017420 
00017430 
00017440 
00017450 
00017460 
00017470 
00017480 
00017490 
00017500 
00017510 
00017520 
00017530 
00017540 
00017550 
00017560 
00017570 
00017580 
00017590 
00017600 
00017610 
00017620 
00017630 


SUBROUTINE STEP I LS IGN , RL , RRL , NN ,RQ , RRQ , JUMPR , M JUMP, N JUMP , DSLOPE , 00017640 

1 PATH , LAMS ) 00017650 
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C 


C 


C 
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COMPUTE PATH = PATH DISTANCE, LAMS « LOAD STEP SIZE. 

LSIGN * ♦ IF LOAD PARAMETER IS I NCRE AS I NG , DECRE AS ING . 

RL,RRL - 1ST ,2ND ORDER LOAD PARAMETER RATES. 

NN = TOTAL SYSTEM OOF. 

RC C I ) » RR« C I ) - 1ST, 2ND ORDER DIAPLACEMENT RATES AT DCF I. 

JUMPR = FRACTION OF LOAD INCREMENT PRECEEDING LIMIT POINT 
AT WHICH LIMIT IS TO Bfc TRAVERSED. 

M JUMP = MAXIMUM NUMBER OF INCREMENT DIVISIONS TO PERFORM WHEN 
NEARING A LIMIT POINT. 

N JUMP = CURRENT NUMBER CF INCREMENT DIVISIONS TO PERFGRM WHEN 
NEARING A LIMIT POINT. 

DSLOPE = MAXIMUM SLOPE RATIO ( CHANGE/ AVER AGE ) DURING LOAD STEP. 
PATH * COMPUTED PATH STEP SIZE TO BE TAKEN. 

LAMS = INPUT MAX IMUM f COMPUTED ACTUAL LOAD STEP SIZE* 

INTEGER NN • M JUMP , N JUMP 

DOUBLE PRECISION LS I GN , RL , RRL , RQ ( 1 ) , RRQ (1) , JUMPR , OSLOPE , PATH , LAMS 
INTEGER N, I 

DOUBLE PRECISION SL I M, L AML I M , PREC , OSLCP , CR , CRR , C 
IF(LSIGN*«L.LE.O.OO)STGP 601 
If (RL*RRL.GE.O.DO)GO TO 21 
POSSIBLE LIMIT POINT 
SLIM * -RL/RRL 

LAMLIM - DABS I SL I M*RL .♦ . 5D0*SL I M**2*RRL ) 

CHECK CLOSENESS OF LIMIT POINT 
IHLAMLIM.lt. JUMPRJGO TO 11 
IFILAMS.LT.LAMLIM/MJUMPIGO TO 21 

limit is close, take fractional step jump 

N JUMP * NJUMP-L 
IFINJUMP.LT. 2INJUMP = 2 
IFILAMS.LT. lamlimigo TO 7 

STEP IS LARGER THAN LIMIT. JUMP TOWARD LIMIT VALUE. 

LAMS = LAMLIM/NJUMP 
GO TO 10 

STEP IS SMALLER THAN LIMIT. JUMP TOWARD STEP VALUE. 

7 N - NJUMP«LAMS/LAMLIM ♦ 1 
IFIN.EQ.DNJUMP = NJUMP+1 
LAMS ^ LAMS/N 
10 LAMS = LSI GN*L AMS 

PATH = I~RL + LSIGN*DSQRT(RL**2 + 2.DQ*LAM5*RRL ) I/RRL 
RETURN 


00017660 
OOC 17670 
00017680 
00017690 
00017700 
00017710 
00017720 
00017730 
00017740 
00017750 
00017760 
00017770 
00017780 
00017790 
00017800 
00017810 
00017820 
CC017830 
0001/840 
00017850 
00017860 
00017870 
00017880 
00017890 
00017900 
00017910 
0001/920 
00017930 
00017940 
00017950 
00017960 
00017970 
00017980 
00017990 
00018000 
00018010 
00018020 
C001 8030 
00018040 
00018050 
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LIMIT IS VERY CLOSE. TRAVERSE THE LIMIT POINT 
li N JUMP * MJUMP+1 
L SIGN = -LSIGN 
LAMS = O.DO 
PATH * -2.DO*RL/RRL 
RETURN 

LIMIT IS NOT CLOSE. CHECK SLOPE CHANGE FOR ALLOWABLE STEP 
21 N JUMP * MJUMP+I 
C« = O.DO 
CRR * o.DO 
DC 50 1=1, NN 
Ctt ~ CR ♦ DABS ( RG { I ) ) 

50 CRR » CRR ♦ DABS (RRQ I I ) ) 

LAMS - LSI GN*LAMS 

51 PREC * DABSi 2.D0*LAMS*HRL/RL**2) 

IFIPREC.lt. 1.0-8IPATH = LAMS/RL 

IFIPREC.GE. l.D-8 JPATH = ( -RL + L S I GN*OSGRT I RL **2 *2 . D0*l AMS*RRL ) )/ 

DSLOP a PATH*RRL 

DSLOP = DSLOP/<RL+.5DC*CSLOP> 

C = PAT H*CRR 
C = C/(CR+.5D0*C> 

IF ( DABS ( DSLOP i.LE.CSLGPE. AND. C . LE . DSLOPE ) RETURN 

LAMS * . 5C0*L AM S 

IFIDABSILAMSI.LE.l *D-3 ) S TOP 602 

GO TO 51 

END 


00018060 
00018070 
00018080 
€0018090 
00018100 
00018110 
00018120 
00018130 
00018140 
00018150 
00018160 
00018170 
00018180 
00018190 
00018200 
00016210 
RRLOOO 1 8220 
CC018230 
00018240 
00018250 
00018260 
00018270 
00018280 
00018290 
00018300 
00018310 


SLBROUT INE E I GEN 1( NN , NCODE , QQDELT , SCR I T , GQPOST , L AM , PRO , PR1 , pp ) 
FORM POSTBUCKLING LOAD TERM PP USING FUNDAMENTAL DISPLACEMENTS 
(REFERENCE VALUES QQSTAR AND CRITICAL INCREMENT QQDELT) ANO 
POSTBUCKLING DISPLACEMENT EIGENVECTOR CQPOST. 

NN = TOTAL SYSTEM DOF. 

NCODE = 0,1 FOR LI NE AK , NQNL I NE AR EIGEN SOLUTION. 

CGDELT(I) = ESTIMATED INCR. DISPLACEMENT AT CUE I TO CRITICAL PT. 
SCRIT * ESTIMATED INCREMENTAL PATH VALUE TO CRITICAL POINT. 
GQPCSTU) * ESTIMATED BUCKLING DISPLACEMENT AT DOF I. 

LAM = ESTIMATED INCREMENTAL LOAD PARAMETER VALUE TO CRITICAL PT. 
PRO » PR 1 = PRESSURE FACTORS AT START , END GF LCAD STEP. 

PPU> = COMPUTED RIGHT-HAND-SIDE FOR INVERSE POWER ITERATION. 


00018320 
00018330 
CC018340 
00018350 
00018360 
00018370 
COO 18 380 
00018390 
00018400 
00018410 
00018420 
00018430 
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ORC = MAXIMUM TENSOR ORDER TO BE USED FOR DIFFERENCE EXPANSION. 
NEL.NStNF = NUMBER OF E L EVENTS f S TRA I N COUPON ENTS* DOF PER NODE. 
ELNO (3,1) * NODE NUMBERS FOR ELEMENT I. 

E GEOM t J * I ) = GEOMETRIC PROPERTIES FOR ELEMENT I. 

T(I) = THICKNESS OF ELEMENT I. 

CGSTAR(I) = CURRENT CUMULATIVE DISPLACEMENT AT DOF I„ 

1 PRESS * NONCONSERVATIVE CODE = 0,1 FOR NC PRESSURE, PRESSURE. 
PRREF(I) = PRESSURE INTENSITY ON ELEMENT I FCR PRESSURE VECTOR. 

ccmmcn/ccmcro/ord/comnel/nel/comns/ns/cqmnf/nf 

COM MON/COMEL/ELNC/ COMEG/ EGEOM/COMT/T/COMCU/QQ ST Aft 
COMMCN/CCM I PR/ I PRESS /C CM PR R/PRREF 
INTEGER NN,NCODE,GRD,NEL,NS,NF,ELNC( 3, 1 ) , 1 PRESS 
DOUBLE PRECISION QQOEL T (1) , SCR I T , COPOST U ) , LAM , PRO , PR 1 ,PP ( 1) 
DCUBLE PRECISION EGECM ( 3 , 1 ) , T I 1) , CGSTAR < 1 ) , PRREF ( 1 ) 

INTEGER NF2 T NF3, IU2, IU3, I • I I ,M 

DCUBLE PRECISION V*C ,GSTAR (9) , QQELT ( 9 ) , CPOST ( 9 ) , DS T AR ( 6 ) , DDELT i 6 ) 
IDP0ST(6),ESTAR( 3) *£DELT(3) * EPGST (3) f ASTAR(3,6I ,A1DELT (3,6) , 
2AlP0ST(3,6>,ST0RA{3i,STCR8<3),ST0RM(6> , G 1 6 , 9 ) , p { 9 ) , USTAR ( 20 ) , CA 
DOUBLE PRECISION CO , C 1 . VST AR ( 6 > , VOEL T t 6 ) , VPOST (6 ) , VI (3) , V2 13 ) , 

1 V 3 ( 3 ) , V4 ( 3 ) 
ui NF2 = NF + 2 

° NF3 = NF*3 

IU2 * 2 ♦ NS 
IU3 = IU2 + NS* ( NS+ 1 ) /2 
DC 5 1=1, NN 
5 PP(I> = 0. DO 
CO 1C00 11=1, NEL 

v = .5Do*rnn*EGeoM(i,m*EGEOM<2fiii 

C FORM FUNDAMENTAL REFERENCE QUANTITIES 

CALL OF ILL (NF ,ELNGU ,11) , GQSTAR , QST AR ) 

CALL DFILL (NF,EGEOMt 1,11 ) , CST AR * C S T AR ) 

CALL AFILUNF,DSTAR,ASTAR,1> 

CALL 6FILL (NF,DSTAft*ESTAR) 

C FORM STRESS-STRAIN TENSGRS 

CALL UFILLU I , OR D , ESTAR , US TAR ) 

C FORM FUNDAMENTAL CRITICAL INCREMENT QUANTITIES 

CALL UF ILL (NF,ELNG< 1,11 ) , OQDEL T , QDEL T I 
CALL DF ILL ( NF , EGEGM ( l, II ) , UDELT , DDELT ) 

CALL AFILLINF, DDELT, A10ELT,0> 

DO 20 1=1, NS 


OCO i 8440 
00018450 
C001 8460 
00018470 
00018480 
00018490 
OCO 18500 
00018510 
00018520 
00018530 
COO 18540 
OCO 1 85 50 
00018560 
CC018570 
00018580 
00018590 
00018600 
00018610 
00018620 
00018630 
CC018640 
00018650 
00018660 
00018670 
000 18680 
00018690 
00018700 
00018710 
00018720 
00018730 
OCO 1 8740 
00018750 
00018760 
00018770 
00018-780 
00018790 
00018800 
00018810 
00018820 
00018830 
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C = 0 . DO 
DO 15 M = 1 , NF2 
CA = ASTAR II ,M ) 

I F ( NCODE *GT • 0 ) C A = CA + . 5D0*SCfi I T * A 1DELT ( I , M ) 

150=0+ CA*DOELT(Mi 
20 EDELTU ) * C 

C FCRM POSTBUCKLING EIGEN CUANT 1 TIES . 

CALL QFILL(NF,ELNO( 1, IK) , GQPCST , QPOST ) 

CALL DFILL(NF,EGE0M(l f II ) , GPOST , DPOST > 

CALL AFILL(NF # DPOSTfAlPCST,OI 
DC 30 1*1, NS 
C * O.DO 
DO 25 M= 1 , NF 2 
CA * ASTAR (I »M) 

I F ( NCODE *GT. 0 ) C A = CA + SCR I T*A 1DELT (I ,M ) 

25 C * C + CA*DPOST<M) 

30 EPOSTl I ) * C 

C FCRM STORM * DO PORTION OF DISPLACEMENT DERIVATIVE PSUEDO FORCES 

DC 104 I = l » NS 
C = 0 .DO 
DC 102 M= 1 , NF2 

102 C * C + A1DELTI I , M } *DPCST ( M ) 

104 STORBU ) = C 

CALL U$UM1(2,USTARUU2) , NS , STCRB , STOR A > 

DC 110 1*1, NF2 
C * O.DO 
DC 105 M= 1 » N S 

105 C - C ♦ STORA(M)*ASTAR(M,I ) 

110 STORM ( n * C 

CALL USUM1I2 ,USTAR( IU2 » , NS rEPOST T ST OR A ) 

CC 120 1*1, NF2 
C * 0,00 
DC 115 M*ltNS 

115 C * C «- STCRA(M)*A1DELT<M,I ) 

120 STORM I I ) * STORM i I) ♦ C 

CALL USUM 1 ( 2 » US TAR I IU2 ) »NS*EDELT , S TGRA ) 

DO 130 1=1, NF2 
C * O.DO 
DO 125 M = 1 » N S 

125 C = C ♦ STOR AIM) ♦A IPGSTJMtl ) 


00018840 
00018850 
00018860 
00018870 
00018880 
00018890 
00018900 
00018910 
00018920 
GOO 18930 
COO l 8940 
00018950 
00018960 
00018970 
00018980 
00018990 
00019000 
COO 190 10 
00019020 
00019030 
C0019040 
00019050 
00019060 
00019070 
00019080 
00019090 
00019100 
00019110 
00019120 
00019130 
00019140 
00019150 
00019160 
00019170 
00019180 
00019190 
00019200 
00019210 
00019220 
00019230 
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130 STCRM(I) = STORMU) ♦ C 
IF(0RD.LT e 3)G0 TO 501 

C ACD D 1 PORTION OF DISPLACEMENT DERIVATIVE PSUEDO FORCES TO STORM 

CALL USUM2 1 ( US TAR ( IU3) * NS , EPCST , EOELT , STCR A ) 

DC 2 LO 1*1, NF2 
C = O.DO 
DO 205 M - 1 , N $ 

205 C * C ♦ STORA(M)*ASTAR(M, I ) 

210 STORM! I ) = STORM ( I ) ♦ C 
I F ( NC 00 6 . E Q • 0 ) GO TO 501 
CO 220 I = 1 , NF 2 
C = O.DO 
DO 215 M=1,N$ 

215 C = C + STCRA(M) *A1DELT<M, I ) 

220 STORM { I ) = STORM ( I ) + SCRIT*C 

CALL USUH 1 ( 3 , US TAR ( l U3 ) ,NS * EDELT , STCRA ) 

DO 230 I = l , N F 2 
C = O.DO 
DO 225 M = 1 , N S 

225 C = C + $T0RA<M)*A1P0ST(M, I) 

230 STORM ( I ) = STORM ( I ) + .5D0*SCRIT*C 
C COMPUTE ELEMENT FORCES PCI) = VOLUME INTEGRAL OF G ( M , I )*STORM(M ) 

501 CALL GFILL (NF,EGECM! 1, m,G) 

DO 510 1 35 1 , NF 3 
C = O.DO 
DO 505 M=1 # NF2 
505 C = C ♦ G ( M , I ) *S TORMI M ) 

510 PII) = C*V 

I F C IPRESS.EQ.O >G0 TO 1000 
C ACC NONCON SERVATIVE PRESSURE FORCES TO P 

VSTAR(l) * EGECM (1,11 ) ♦ QSTARtAI - QSTAR ( 1 ) 

V STAR ( 2 ) = QSTAR ( 5 ) - QSTAR t 2 ) 

VSTARI3) * QSTAR (6 ) - QSTAR I 3 ) 

VSTARI4) = EGEOM (3,11) + QSTAR ( 7 ) - QSTARUI 
VS TAR ( 5 I = E GEOM (2,11) ♦ QS T AR ( 8 ) - QSTAR ( 2 ) 

VSTAR ( 6 ) = QSTAR ( 9 ) - CSTARI3) 

VCELTUI = QDELT ( 4 ) ~ GDELT(l) 

VCELT ( 2 ) = QCELU5) - QCEL T ( 2 ) 

VCELT13) = QDELT ( 6 > - QDELT ( 3 ) 

VDELT14) = QDELT ( 7 ) - QDELTUJ 


00019240 
00019250 
00019260 
OCO 19270 
00019280 
00019290 
00019300 
00019310 
00019320 
00019330 
00019340 
00019350 
00019360 
00019370 
00019380 
00019390 
00019400 
00019410 
00019420 
00019430 
000194.40 
00019450 
00019460 
00019470 
00019480 
00019490 
00019500 
00019510 
00019520 
00019530 
000X9540 
00019550 
00019560 
00019570 
00019580 
00019590 
00019600 
00019610 
00019620 
00019630 
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VC6L T ( 5 ) * CDEL T ( 8 ) - QDEL T ( 2 > 

VOE L T ( 6 } * QDEL T ( 9 ) - QDEL T ( 3 ) 

VPOST(L) * GPOS T ( 4 ) - OPOSTtl) 

VPOS T ( 2 ) = QPOST ( 5 ) - QPCST12) 

VPOS T I 3 ) * QPOS T ( 6 ) - GPCST13) 

VPOS T ( 4 ) * QPOS T ( 7 ) - QPOSTll> 

V POST ( 5 ) = QPOST18) - QPOST l 2 ) 

VPOST l 6 ) = QPOST ( 9 ) - QPCST13) 

CALL VCRQSSl VST AR , VPOST ( 4 > ,V1 ) 

CALL VCROSSl VPOST, VSTAR14) ,V2) 

CALL VCRCSSIVDELT , VPOST ( 4 ) » V3 ) 

CALL VCROSSl VPOST , VDEL T l 4 ) ,V4) 

CO ^ LAPI*{PRl-PR0)*PRREF(in/6.00 
Cl = PRO*PRREF(I I )/6.C0 
IFINCODE.GT.OICl = Cl + SCRIT*CO 
DO 610 1*1,3 

c * co*(vn n+v2( i >> + ci*i V3i n+v4i m 
pt n * pm - c 

PI 1 + 3) * PlI + 3) - c 
9 610 PlI+6) = Pll+6) - C 

Ln C ACD ELEMENT FORCES P TO SYSTEM FORCES PP 

w 1000 CALL PFILLINF # ELNC( 1, ID ,P, PP) 

RETURN 

END 


COO 19640 
00019650 
00019660 
00019670 
COO 19680 
00019690 
00019700 
00019710 
00019720 
00019730 
OCO 19 740 
00019750 
00019760 
00019770 
C0019780 
00019790 
00019800 
00019810 
00019820 
00019830 
00019840 
00019850 
00019860 
00019870 


SUBROUTINE E IGEN ( UO , KMAT , P 1 , CO , NN , KF C, PRO, PR 1 ,RL ,RRL ,KQ ,RRU, 
IM11,MI2,ERR1,ERR2,EIG1,Q1,N) 

SOLVE FOR EIGEN LOAD E1G1, AND VECTGR Q1 WITH MAX. INDEX VALUE N 
UO * OUTPUT UNIT FILE. 

KMAT * SYSTEM JACOBIAN STIFFNESS MATRIX. 

Pi * TEMPORARY FORCE STORAGE VECTOR. 

CO * TEMPORARY DISPLACEMENT STORAGE VECTOR. 

NN * TOTAL SYSTEM DOF. 

KFDII) = fORCE-DISPLACEMENT-CONSTRAINT SPECIFICATION FOR DOF I. 
PRO , PR 1 = PRESSURE FACTORS AT START, END OF LCAD STEP. 

KL,RRL = 1ST, 2ND ORDER LOAD PARAMETER RATES. 

RCm*ftRQ(!) * 1ST , 2ND CRDER DISPLACEMENT RATE AT DOF I. 


C0019880 
00019890 
. 00019900 
00019910 
00019920 
00019930 
00019940 
00019950 
00019960 
00019970 
0C019980 
00019990 


M 1 1 , M I 2 * MAXIMUM ITERATIONS FOR L I NE AR , L I NE AR + NONL I NE AR SOLUT ION. 00020000 


ERR 1 ,ERR2 * MAXIMUM ERROR FOR L I NEAR ,L INE AR + NONL I NEAR SOLUTION. 00020010 
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EIGL - COMPUTED EIGENVALUE (CRITICAL PATH VALUE)o 

Gill) = ITH COMPONENT CF EIGENVECTOR (BUCKLING DISPLACEMENT), 

N = DOE OF LARGEST Ql COMPONENT, 

COMMON/C OMNF /NF 

INTEGER UOtNN.KFDll) f MM t MI2 # N 

DOUBLE PRECISION KMAT ( NN *NN ) t P 1( I ) » GO ( 1 I t PRO , PR I , 

1 R L » RRL * RC l 1) » RRQ ( 1 ) , ERR 1 , ERR 2 » E I G i ,0 1 < 1) 

INTEGER I.NI 

DOUBLE PRECISION E IGO , M AX1 f DL , C 

201 FORMAT! 1H , ‘EIGENVALUE = • t D i 5, 8 *5X » • DOF OF LARGEST COMPONENT 
1 1 GEN VECTOR = ‘*15) 

N 1 = 0 
NCOOE * 0 
E I G l = 0*D 0 
DC 5 1= 1 #NN 
5 Gill) = I 
II E I GO - EIG1 
CL = RL 

IFINC0DE,GT,0)DL = OL + . 5D0*E IGQ*RRL 
DO 20 I - 1 » NN 
GO(I) = GUI ) 

Gil I) * RGl I ) 

IFINC00E,GT.0)G1 ( I) = GUI) + . 5D0*E I GO*RRQ l I ) 

20 CONTINUE 

CALL EIGENllNN,NCCDE,Gl f E I GO ,00 , CL , PRO , PR 1 *P1 ) 

NCD = NN/NF 

CALL OUT PQ 16 * NOD * NF * P i , GO ) 

DC 50 |*l,NN 

IFIKFOl I ).LT.O)Pll I ) - O.DO 
50 CONTINUE 

CALL SOLVE(KMAT,NN,KFDtPl*Gl) 

N = 0 

MAXI - O.DO 
DO 70 I ^ 1 1 NN 

If l DABSIQU m.LE.DABS I MAX I ) )GC TO 70 

N = I 

MAXI = Gill) 

70 CONTINUE 

MAXI * l.DO/MAXi 
EIGl = -MAXI 


00020020 
00020030 
00020040 
00020050 
0C020060 
00020070 
00020080 
00020090 
00020100 
OF E00020 110 
0002U120 
00020130 
00020140 
00020150 
00020160 
00020170 
00020180 
00020190 
00020200 
00020210 
00020220 
00020230 
00020240 
00020250 
00020260 
00020270 
00020280 
00020290 
00020300 
00020310 
CC020320 
00020330 
00020340 
00020350 
00020360 
00020370 
00020380 
00020390 
00020400 
00020410 
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IF<KFD(N).NE,N)N = KF 0 (N ) 

DC ICO l«l # NN 
100 OKI) = Q 1 ( I ) *M AX I 
HR f T E ( U0 ,20l)EIGl»N 
NI = NI*1 

C * DABSI I EIGl-EIGOI/fcIGl) 

I F I NCOOE*GT *0. AND. (NI.GE.MI2.GR.C.LE.ERR2) ) RETURN 
I F ( NCUDE .EG .0 • AND* ( N I • GE .M I 1 .OR *C • LE • ERR 1 ) iNCODE = 
GO TO 11 

END 


00020420 

00020430 

00020440 

00020450 

00020460 

00020470 

00020480 

00020490 

00020500 

00020510 


SUBROUTINE POST 2 i NN , QQCR I \ , CCDCT , CCPOST , LCR I T , LOOT , PRO , PR 1 , PP , 
1K0DE ) 

FORM 2ND ORDER PGSTBUCKLING LOAD TERM PP (=P21,P22 FCR K0DE=1,2)* 
NN = TOTAL SYSTEM DOF. 

CGCRITU) - PREDICTED TOTAL DISPLACEMENT OF DOF I AT CRITICAL PT* 
CGDGT(I) = PREDICTED DISPLACEMENT RATE OF DOF I AT CRITICAL PT. 
CUPOST(I) * ITH DISPLACEMENT OF CRITICAL BUCKLING EIGENVECTOR. 

LCR I T * PREDICTED LOAD PARAMETER VALUE AT CRITICAL POINT. 

LOOT = PREDICTED LOAD PARAMETER RATE AT CRITICAL POINT. 

PRO * PR 1 = PRESSURE FACTORS AT START OF LOAD S TEP ,CR I T I CAL POINT. 
PPU) * COMPUTED PSUEDC-FORCE TERM AT DOF I. 

KCDE - COOE FOR DUAL USE OF SUBROUTINE. 

ORO = MAXIMUM TENSOR ORDER TO BE USED FOR DIFFERENCE EXPANSION. 
NEL,NS,NF * NUMBER OF ELEMENTS , S TR A IN COMPONENTS , DOF PER NODE. 
ELNO ( J , l ) * NODE NUMBERS FOR ELEMENT I. 

EGEOM ( J , I ) » GEOMETRIC PROPERTIES FOR ELEMENT I. 

TCI) = THICKNESS OF ELEMENT I. 

IPRESS = NONCONSERVATIVE CODE = 0,1 FOR NO PRESSURE, PRESSURE* 
PRREF(I) = PRESSURE INTENSITY ON ELEMENT I FCR PRESSURE VECTOR. 
COMMCN/CCMCRD/ORU/COMNEL/NEL/COMNS/NS/CGMNF/NF 
COMMON/COMEL/ELNO/COMEG/EGEQM/COMT/T 

commcn/ccmipr/ipress/ccmprr/prref 

INTEGER NN, KOOE ,ORD , NEL , NS, NF,ELNCf 3,1) , IPRESS 

DOUBLE PRECISION CGCR I T Cl), GQDOT ( 1 ) ,QQPOST < l > , LCR I T , LOOT , PRO , PR 1 , 
1PP ( l ) , EGEOM 13, 1) » TC 1) , PR REF ( 1 ) 

INTEGER NF2,NF3, IU2, I U 3 » I , I I * M 

DOUBLE PRECISION V ,C ,QCR I T t 9 ) » QDC T( 9 ) ■ OPO ST < 9 ) ,OCR IT C 6 ) , ODOT { 6 ) , 
1DP0STI6),£CRIT < 3 ) ,EDOT (3) ,EPOST ( 3 ) , ACR ] T (3,6 ) , A1D0T (3,6), 


00020520 

0C02O530 

00020540 

00020550 

00020560 

0C020570 

00020580 

00020590 

00020600 

00020610 

00020620 

00020630 

00020640 

00020650 

00020660 

00020670 

00020680 

00020690 

00020700 

CC020710 

00020720 

00020730 

00020740 

00020750 

00020760 

00020770 

00020780 

00020790 
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lAlPCST!3»6),STQRA(3),STCRb{3),STQRM(6)iG(6,9),PI9),UCRIT!20) 

CCUBLE PRECISION CC,C i * VCR I T 16) , VDCT ( 6 1 , VP0SU6 I , VII 3 ) ,V2! 3) , 
1 V 3 ( 3 ) ,V4!3) 

NF2 - NF*2 
NF3 = NF* 3 
IU2 * 2 + NS 
IU3 = IU2 + NS*<NS+l)/2 
DO 5 1=1, NN 
5 PP ( I ) = 0. DO 
DO 1000 1 1 = 1 ,NE L 

V = .5D0*Tlin*EGECM(I,in*EGE0M(2,in 

C FCRM FUNDAMENTAL CRITICAL QUANTITIES 

CALL QF I LL INF f ELNC t l f II ) f CQCRI T , QCR IT ) 

1901 FORMAT! 1H0,9E14,7I 

WRITE !6, 1901 MOCR IT! I ) , I=1,NF3) 

CALL DFILL!NF,EGEGMU,in f OCRIT f DCRm 
WRITE (6, 1901 )( OCR IT II) ,1 = 1, NF 2) 

CALL AFILL!NF,DCRIT ,ACRIT , i 1 
DC 1910 1=1,3 

? 1910 WK I TE ( 6 , 19 Oi MACRIT < I ,J) ,J = 1 ,NF2) 

uj CALL £FILHNF,DCRIT, ECRIT) 

WR I TE ( 6 , 1901 ) (ECRIT! I), 1 = 1,3) 

C FORM STRESS-STRAIN TENSORS 

CALL UFILL! II, CRD, ECRIT, UCRIT) 

C FORM FUNDAMENTAL RATE QUANTITIES 

CALL QF ILL INF, ELNC! i, I I) , QQOOT ,QDOT ) 

WR ITE C6, 1901 ) !QDOr ! I > , 1 = 1 ,NF3 1 
CALL OF ILL ! NF , EGECM 11,11) »CDCT,DOCT ) 

WR I TE(6, 1901 )! COOT! I ) , I = 1,NF2 ) 

CALL AF ILL ! NF ,DDOT, A 1C0T, 0 ) 

DO 1920 1=1,3 

192 0 WRITE! 6, 1901 ) ! A IDOT < I, J J , J = 1 , NF2 ) 

DC 20 1=1, NS 
C = O.DO 
CC 15 M = 1 , N F 2 

15 C - C ♦ ACRI T ( l ,M )*DDOT ! M > 

20 EDOT! I) = C 

WRITE (6 1 19011 (EOCTI 1 ) ,1 = 1, 3) 

C FORM P0ST8UCKLING EIGEN QUANTITIES 

CALL QF I Lb CNF* ELMO! 1, I I ) , QQPOST , QPO S T ) 


00020800 
OCO 208 10 
00020820 
00020830 
00020840 
00020850 
00020860 
000208 70 
00020880 
00020890 
00020900 
00020910 
00020920 
00020930 
00020940 
00020950 
00020960 
00020970 
00020980 
00020990 
00021000 
00021010 
00021020 
00021030 
00021040 
00021050 
00021060 
00021070 
00021080 
00021090 
00021100 
00021110 
00021120 
00021130 
00021140 
0002 1 1 50 
00021 160 
00021170 
00021180 
00021190 




WRI TE !6, 1901 MQPCSTI I ) • l=l,NF 3) 

0C0212C0 



CALL OF I LL ! NF » EGEOP 1 1,1 I 1 , QPCS f , DPCS I > 

00021210 



MR1TE46* 1901 HDPOSTII ) « t»l*NF2) 

00021220 



CALL AFlLL(NF, DPO ST »A1PCST,0) 

00021230 



DC 1930 1-1,3 

00021240 


1930 

WRITE! 6, 1901) U1P0STU ,J) ,J=l,NF2) 

00021250 



00 30 1*1, NS 

00021260 



C * 0.00 

00021270 



DC 25 M=1,NF2 

00021280 


25 

C = C ♦ ACR l T ( I »M ) ♦DPOST ( M ) 

00021290 


30 

EPOS T ( I ) = C 

00021300 



WR I TE ( 6 » 1901 ) ( EPOS T i 11,1 = 1,3* 

00021310 


C 

FORM STORM - DO PORTION OF DISPLACEMENT DERIVATIVE PSUEDQ FORCES 

00021320 



DO 104 1*1, NS 

00021330 



C * O.DO 

00021340 



CO 102 M*1,NF2 

00021350 


102 

C * C ♦ A1D0TU ,M)*DPOST(M> 

00021360 


10 A 

STCRB! I ) * C 

00021370 



CALL USUMl 1 2,UCRUUU2) , NS , STORB , STORA ) 

00021380 

n 


DO 110 1 = 1 ,NF2 

00021390 

( 

U1 


C * O.DO 

00021400 

-4 


00 105 M*l,NS 

00021410 


105 

C = C > STORA ( M ) +ACR I T ! P , I ) 

00021420 


110 

STORM! I ) * C 

00021430 



WRITE! 6, 1901 H STORM! 1 ) ,1=1 ,NF2) 

00021440 



CALL USUPi(2,UCRIT ( IU2 > ,NS, EDCT, STCRA ) 

0C02 1450 



DO 120 1*1, NF2 

00021460 



C = O.DO 

00021470 



DO 115 M=1 ,NS 

00021480 


115 

C = C ♦ STORA (M)*A1P0ST(M» I) 

00021490 


120 

STORM!! ) = STORM! I) ♦ C 

00021500 



WRI TE ! 6, 1901 )( STORM! I ), 1*1, NF2) 

00021510 



CALL USUM1!2,UCRIT t IU2), NS, EPOST, STORA) 

00021520 



DC 130 1*1, NF2 

00021530 



C * O.DO 

00021540 



DO 125 M = 1 ,N S 

00021550 


125 

C * C ♦ ST0RA!M)*AIDC1 !M,I) 

00021560 


130 

STORM! I ) = STORM ( I ) + C 

00021570 



WRITE! 6, 1901 )( STORM! I), I=1,NF2) 

00021580 



I F ( ORD. LT • 3 ) GO TO 501 

00021590 



c 


n 

i 

Ln 

co 


ACO Di PORTION CF DISPLACEMENT DERIVATIVE PSUEDO FORCES TO STORM 
CALL USUM2KUCRI T( XU3) ,NS , EDCT ,EPOST , STORA ) 

DO 2 10 1 = 1, NF2 
C = 0 .DO 
DC 205 M=1 f NS 

20 5 C = C ♦ STORA<M)*ACRIT(M, t) 

210 STGRMln = STORM ( I ) ♦ C 
C COMPUTE ELEMENT FORCES PtI) = VOLUME INTEGRAL OF G I M , I ) *STCRM I M ) 

501 CALL GFILL(NF,EGEOM< 1, II ) ,G> 

00 510 1*1, NF3 
C = O.DO 
CO 505 M = 1 f NF2 
505 C * C ♦ GIM,I )*ST0RMIM) 

510 Pt H * C*V 

WRITE 16, 1901) (P(I)»l*i,NF3) 

IF I IPRESS.EQ.O)GG TO 1000 
C ADD NONCONSERVATIVE PRESSURE FORCES TO P 

VCOT(l) * GDOT(A) - ODCT(l) 

V C 0 T t 2 ) * 0D0TC5) - QDC T ( 2 ) 

V00TI3) * QD0TI6) - QD0TI3) 

VC0T14) = QDOT ( 7 ) - GDCT ( 1 ) 

V C 0 T ( 5 ) * Q00TI8) * gOCT(2) 

VCOT ( 6 ) » QDOT ( 9 ) - Q0CT(3I 
VPOST(l) - QPQST ( 4 ) - CPOSTtl) 

V PCS T l 2 ) - QP0STI5) - QPCSTI2) 

VP0STI3) = QPOST ( 6 ) - QPOST ( 3 ) 

VP0STI4) = QP0STI7) - GPOST(l) 

VPCST ( 5 ) * QPOST { 8 ) - QP0ST(2) 

VPGSTI6) * QPOST I 9 ) - QPGST(3> 

CO = I PRO ♦ LCR IT*< PR1-PR0 )) ♦PRREFU I) /6.D0 
Cl = O.DO 

CALL VCRCSSlVDOT,VPOST(4),Vi) 

CALL VCROSSt VPOST , VOOT 1 4 > , V2 > 

IF! KQDE. EQ .2 ) GO TO 601 

VCR I T ( 1 ) * EGEOM ( 1 » I I) ♦ QCRIT<4> - QCRIT(l) 

VCRITI2) = QCR I T ( 5 ) - OCR I T ( 2 ) 

VCR I T ( 3 ) = QCR I T ( 6 > - QCRIT(3) 

VCRITI4) = EGEOM (3,11) ♦ QCR I T t 7 ) - GCRIT(l) 

VCR I T ( 5 ) = EGEOM I 2, 1 1 ) ♦ QCR I T ( 8 ) - QCR I T ( 2 ) 

VCR I T ( 6 ) = QCRITI9) - QCRIT(3) 


00021600 
00021610 
00021620 
00021630 
00021640 
00021650 
00021660 
0C021670 
00021680 
00021690 
00021700 
00021710 
00021720 
00021730 
00021740 
00021750 
00021760 
00021770 
00021780 
00021790 
00021800 
C0021810 
C0021820 
00021830 
0002 1840 
00021850 
00021860 
00021870 
00021880 
00021890 
00021900 
00021910 
00021920 
00021930 
00021940 
00021950 
00021960 
00021970 
00021980 
00021990 



oonno n oonooonnoonoon 


Cl * L0CT*<PR1-PR0)*PRREF< ID/6.D0 
CALL VCRCSSI VCRIT, VP0ST(4) ,V3) 

CALL VCRO$S( VPOST,VCRI T(4) ,V4 ) 

601 DO 610 1*1,3 

c = co*< viu )+v2( m ♦ ci*(v3m+v4(m 
PI II * PIN - C 
P ( 1*3 ) = P (1 + 3) - C 
610 PII+61 * p | I -f 6 ) - C 

C ACC ELEMENT FORCES P TO SYSTEM FORCES PP 

1000 CALL PFUUNFfELNCM 1, II ) *P.PP) 

RETURN 

END 


00022CG0 

00022010 

00022020 

00022030 

00022040 

00022050 

00022060 

00022070 

00022080 

00022090 

00022100 

00022110 


SUBROUTINE POST3(NN,GGCRIT ,C00CT1 » CQPGS 1 , QQ0CT2 , GQPOS2 , SPOST 1 , 
1LCR IT, LOOT l, LDOT2 , PRO , PR 1 , PP ) 

FORM 3RD URDER POSTSUCKLING LOAD TERM PP. 

NN = TOTAL SYSTEM OOF. 

CCCRKT(I) * PREDICTED TOTAL DISPLACEMENT OF EOF I AT CRITICAL PT. 
GCDCTim = CRITICAL 1ST ORDER DISPLACEMENT RATE AT CQF I. 
CGPOSim = ITH EIGENVECTOR VALUE (1ST ORDER P0ST8UCKL ING RATE). 
GQ00T2 ( I ) * CRITICAL 2ND ORDER DISPLACEMENT RATE AT COF I. 
CGPCS2U) * ITH VALUE OF 2ND ORDER POSTBUCKLING D I SPL ACEMEN I . 
SP0ST1 = 1ST ORDER FUNDAMENTAL PATH RATE. 

LCRIT * PREDICTED LOAD PARAMETER VALUE AT CRITICAL POINT. 

LD0T1 * 1ST ORDER LOAD PARAMETER RATE AT CRITICAL POINT. 

LDGT2 * 2N0 ORDER LOAD PARAMETER RATE AT CRITICAL POINT. 

PRO * PR 1 * PRESSURE FACTORS AT START OF LOAC $ TEP *CR I T ICAL POINT. 
PP(I) * COMPUTED PSUEDC FORCE TERM AT OOF I. 

ORO * MAXIMUM TENSOR ORDER TO BE USED FOR DIFFERENCE EXPANSION. 

NEL » NS, NF * NUMBER OF ELEMENT S t SIR A I N COMPONENTS , DOF PER NODE. 
ELNO(J,I) * NODE NUMBERS FOR ELEMENT I. 

EGEQM ( J , I) * GEOMETRIC PROPERTIES FOR ELEMENT I. 

T(I! * THICKNESS OF ELEMENT I. 

IPRESS * NONCONSERVATIVE CODE = 0,1 FOR NO PRE SSURE , PRESSURE . 
PRRCFII) = PRESSURE INTENSITY ON ELEMENT I FCR PRESSURE VECTOR. 
CCMMCN/COMORO/CRD/COMNEL /NEL /COMNS /NS/CGMNF /NF 
COMMCN/COMEL/ELNO/CCMEG/EGEGM/COMT/T 

ccmmon/ccmipr/ipress/ccmprr/prref 

INTEGER NN,0RD,NEL,NS,NF,ELN0(3,l), IPRESS 


00022120 
00022130 
00022140 
00022150 
00022160 
CC022170 
00022180 
CC022190 
00022200 
C00222 10 
00022220 
00022230 
00022240 
00022250 
00022260 
00022270 
00022280 
00022290 
00022300 
00022310 
00022320 
C00223 30 
00022340 
00022350 
00022360 
00022370 



DOUBLE PRECISION CCCR I T (1) , CQDC T 1 (1) , GQPCS 1 (U , QQDO T2 ( 1 ) , 

KGPOS2I l) f SPOSTl t LCRITtLDOTl # LDCI2fPRO*PRl # PPin f EGECN(3*i)*nn t 
2PRREF ( 1 ) 

INTEGER NF2.NF3, IU2, IU3, I, I I,M 

CCUBLE PRECISION V , C , QCR I T [ 9 ) , QUO T 1 1 9 ) t UPOST 1 ( 9 ) , QCOT 2 ( 9 ) * 
IGP0ST2C 9 ) ,DCRI T( 6 ) , DOOT 1 ( 6 ) , DPOS T 1 ( 6 ) ,DDCT? (6) ,DPOST2 16 I , 

2ECR l T ( 3 > , EDO T1 ( 3 ) ,hPOSTI (3) ,ED0T2<3) 9 EP0ST2 (3 I , ACKIT {3* 6) f 

3AlcnTn3 v 6) 9 AlPOSll3«6l t ALOOT2(3f 6).ALPGS20«6) tST0RAIB) 9 ST0RB(3) 
4ST0RM(6),G(6»9),P(9I ,UCRlT(20i 

DOUBLE PRECISION CO t C l ,C2 , VCR I T ( 6 ) , VOOT 1 ( 6 ) , VPOST II 6 ) * VDCJT2 ( 6 ) , 
lVPOST2(6) 9 Vi< 3) 9 V‘2(3) fV3(3)tV4(3> ff V*(3> 9 V6 ( 3 I 9 V7 ( 3 1 9 V8 C 3 ) 9 V9 ( 3 ) 9 
2V1Q(3>,V11(3>,V12(3),V13{3> 

NF2 = NF*2 

NF3 = NF*3 

IU2 = 2 + NS 

IU3 * IU2 ♦ NS*(NS+l)/2 

DO 5 I = i » NN 

5 ppm = o.oo 

DQ 1000 1 1 = 1 * NEL 

V = .5D0*TUI)*EGECMil,II)*EGECM<2,II) 

FCRM FUNDAMENTAL CRITICAL QUANTITIES 
CALL QFILUNFtELNGUf m v QQCRIT v QCRIT) 

CALL DF ILL ( NF , EGEOtf ( I, 1 1 ) , QCR I T , CCR I T ) 

CALL AFILLtNF,CCRIT*ACRIT,I) 

CALL EFILL(NF,DCRIT,ECRIT) 

FORM STRESS-STRAIN TENSORS 
CALL UF ILL (II ,CRD , ECR I T ,UCR I T > 

FCRM 1ST ORDER FUNDAMENTAL RATE QUANTITIES 
CALL QFILL (NF ,ELNC ( 1, I II , QGDOT 1 , QOO T 1 ) 

CALL UF ILL (NF ,EGEOM( I , 1 1 I , QDCT 1 , CDCT I ) 

CALL AFILL (NF,CD0T1,A1DCT1,0) 

DO 20 1=1, NS 
C = 0 • DO 
CG 15 M= I , NF 2 

15 C *- C + ACR IT(I,M)*DDCT1(M) 

20 EDOTU I ) = C 

FORM 1ST ORDER P0ST8UCKL I NG RATE QUANTITIES 
CALL QF ILL ( NF, EL NO ( 1, I I > , QQPOS 1 , QPCST 1) 

CALL DF1 LL (NF ,EGEOM( 1 , 1 1) , CPOST 1 , OPO S T 1 > 

CALL AFlLL(NF t DP0STl,AlP0Sl,0) 


00022380 

00022390 

00022400 

00022410 

00022420 

00022430 

00022440 

*00022450 

00022460 

00022470 

00022480 

C0022490 

00022500 

00022510 

00022520 

00022530 

00022540 

00022550 

00022560 

00022570 

C0022580 

00022590 

00022600 

00022610 

00022620 

C0022630 

00022640 

00022650 

00022660 

00022670 

00022680 

00022690 

00022700 

00022710 

00022720 

00022730 

00022740 

00022750 

00022760 

00022770 



n 

i 

<j\ 


DO 30 I = 1 , NS 
C = 0* DO 
DO 25 M= 1» NF 2 

25 C = C ♦ ACRITU , M > *OPOST 1 1 M I 
30 EPOS T 1 ( I ) » C 

C FORM 2ND ORDER FUNDAMENTAL RATE QUANTITIES 

CALL UFILUNF, ELNOC l* I I ) * QQDCT 2 , CDC T2 ) 

CALL OF ILL I NF, EGEGM 1 1,11) , QDCT2 , CDCT2 > 

CALL AF1LL(NF,CD0T2, A100T2,0) 

DC 40 I * 1 » NS 
C = 0 * DO 
CG 35 M=1,NF2 

35 C * C + ACRIT { I , M ) *DDO T2 l M ) 4 A 1D0T 1 ( I f M ) *DDCT 1( M ) 

40 ECCT21 I ) * C 

C FORM 2ND ORDER POSTBUCKLING RATE QUANTITIES 

CALL QFILL<NF*ELNC(itin ,QQPCS2 , QP0SI2 ) 

CALL OF ILL I NF , EGECM 1 1 , 1 1 > , QPCS T2 , DPCS T2 ) 

CALL AFILL (NF,DPOST2,AlPOS2tG) 

DC 50 I - 1 , NS 
C = O.DO 
DC 45 M= 1 , NF 2 

45 C - C ♦ ACRITU ,M)*DP0ST2(M) + A1P0S1 ( I , M ) * ( CPOST II M ) + 2. DO* 
1SP0STI*CD0T1 (M) ) 

50 EP0ST2 ( I ) * C 

C FORM STORM = DO PORTION CF DISPLACEMENT DERIVATIVE PSUEDO FORCES 

DO 104 1=1, NS 
C = O.DO 
CC 102 1 »NF2 

102 C = C + A1P0S1U ,M)*CDCT2(M1 

104 STORBI 1) * C 

CALL USUMl(2*UCRlTt I U2 1 , NS , S TORB , S TOR A ) 

DO 110 1=1, NF2 
C = O.DO 
CC 105 M=l,NS 

105 C = C 4 STCRA(M)*ACRIT IM, l ) 

110 STORM! I ) = SPOST 1**2*C 

CALL USUM1I2.UCRIT UU2 ) , NS , E PCS T 1 , STCR A ) 

DC 120 1=1, NF2 
C = O.DO 
DO 115 M=1,NS 


00022780 
00022790 
00022800 
C00228 10 
00022820 
00022830 
00022840 
00022850 
00022860 
00022870 
CC022880 
00022890 
CC022900 
00022910 
C002292O 
C0022930 
00022940 
00022950 
00022960 
00022970 
00022980 
00022990 
00023000 
00023010 
00023020 
00023030 
00023040 
CC023050 
00023060 
00023070 
00023080 
00023090 
00023100 
00023110 
C0023120 
00023130 
C0023140 
00023150 
00023160 
00023170 



0 

1 

m 

to 


115 C a C ♦ STORA(M )*A1D0T2 ( M t I) 

120 STORM*!) = ST0RMU) + SP0STl**2*C 

CALL USUM1 (2 ,UCH1 T ( 1U2 * , NS , ED0T2 , S TORA ) 
OC 130 I=l r NF2 
C = 0 .00 
DO 125 M=1 ,NS 

125 C * C ♦ ST0RA(M>*A1P0S1(H, 1) 

130 STORM* I) = STORM ( I ) ♦ $P0ST1**2*C 
DO 134 I = 1 *NS 
C = O.DO 
DC 132 M= 1 1 NF2 

132 C s C ♦ AlDOTi (l ,M J«DP0ST2 (M ) 

134 STGRBU ) = C 

CALL USUM 1(2 *UCR I T ( IU2 > , NS , STORB * STOR A ) 
DO 140 1*1, NF2 
C * O.DO 
DC 135 M=1,NS 

135 C * C + STOR A(M ) *ACR IT ( M , I ) 

140 STORM * I ) = STORM ( I I + SPGST1*C 

CALL USUM1 ( 2 tUCR I T i I U2 ) , NS , EDCT 1 , STOR A ) 
CC 150 I = l , NF2 
C = O.DO 
DO 145 M* 1 » NS 

145 C * C ♦ STGRA*M)#A1P0S2*M, 1) 

150 STORM! I) * STORM ( 1 ) + SP0ST1*C 

CALL USUM 1 ( 2 » UCR I T (IU2 ) , NS ,E P0ST2 » STCR A) 
CO 160 I* 1 f NF2 
C = o.oo 
OC 155 M = 1 » N S 

155 C * C ♦ STQRA(M )*A1DCT1 (M, I ) 

160 STORM * l ) = STORM C 1 J 4 $PCST1*C 
DO 164 1 -1 *NS 
C - O.DO 
CC 162 M* 1 , NF2 

162 C * C + A1P0SK I t M)*DP0ST2(M) 

164 STORB ( l) * C 

CALL USUM1 * 2 , UCR I T * 1U2) ,NS»STCRB,STORA) 
DC 170 I - 1 1 NF 2 
C = O.DO 
DO 165 M = 1 • N S 


00023180 

00023190 

00023200 

00023210 

00023220 

00023230 

00023240 

00023250 

00023260 

00023270 

00023280 

00023290 

00023300 

00023310 

C0023320 

00023330 

00023340 

00023350 

00023360 

00023370 

00023380 

00023390 

00023400 

00023410 

00023420 

00023430 

0002 34 AO 

00023450 

00023460 

00023470 

00023480 

00023490 

00023500 

00023510 

00023520 

00023530 

CC023540 

00023550 

00023560 

00023570 



0 

1 

U) 


165 C * C * STORA(M)*ACRIT{M,I > 

170 STORM! i ) * STORM ( I ) ♦ C 

CALL USUMl(2 t UCR!T( IU2 ) , NS , EPOS T1 , STCR A > 

CC 180 I * i »NF2 
C = 0 • DO 

00 175 M*1,!MS 

1T5 C * C ♦ ST0RA(M)*A1PCS2(M, I ) 

180 STORM ( I > = S TORM ( I) + C 

CALL USUM1 ! 2, UCR IT! IU2) , NS , E PCST2 , STOR A I 
DC 190 I = 1 f NF2 
C = O.DO 
DC 185 M*1,NS 

185 C = C ♦ ST0RA(M)*A1P0S1(M, I) 

190 STORM ! I ) - STORM ( I > ♦ C 

1 F ( ORD. LT • 3 ) GO TO 501 

C ACD Cl PORTION OF DISPLACEMENT DERIVATIVE PSUEDO FORCES TO STORM 

CALL USUM2 1 ( UCR 1 1 ( IU 3 ) ,NS , EPC ST 1 , ED0T2 , S TOR A > 

DC 210 1*1, NP2 
C * 0.00 
DO 205 M*i ,NS 

205 C = C ♦ STCRA{M)*ACRITlM f I ) 

210 STORMtl) = STORM ( I ) + SPGST1**2*C 

CALL USUM1(3»UCRIT ( IU3 ) , NS , EDOT 1 , S TOR A ) 

DO 220 1*1, NF2 
C * 0.00 
DO 215 M* l ,N S 

215 C * C ♦ ST0RA(M)*AIP0S1(M, I) 

220 STORM! I ) * STORMIII + SP0$Tl**2*C 

CALL USUM2 1 ( UCR I T ( i U3 I ,NS t EPGST l , EDOT 1 , S TOR A > 

DO 230 1*1, NF2 
C = O.DO 
DO 225 M= l , NS 

225 C * C ♦ ST0RA!M)*A1D0T1(M, I) 

230 STORM ( I ) * STORM ( l I «• 2.D0*SP0ST l**2*C 

CALL USUM2KUCRITI 103) ,NS , EDOT 1 , EPCST2 , S TOR A ) 

DO 240 1*1, NF2 
C = O.DO 
DC 235 M= 1 , N S 

235 C * C + STORA ( M ) *ACR I T < M * 1) 

240 S TORM C I ) - STORM! I) ♦ SP0ST1*C 


00023580 
G0023590 
CC 023600 
00023610 
00023620 
00023630 
00023640 
00023650 
00023660 
00023670 
00023680 
00023690 
00023700 
C00237 10 
00023720 
00023730 
00023740 
00023750 
00023760 
00023770 
00023780 
00023790 
00023800 
00023810 
00023820 
00023830 
00023840 
00023850 
00023860 
00023870 
00023880 
00023890 
00023900 
00023910 
00023920 
00023930 
00023940 
00023950 
00023960 
00023970 



CALL USUMH 3,UCR IUIU3) t NS»EP0STl , STCRA ) 
no 250 1 = 1 ,NF2 
C = 0.00 
DC 245 M=1,NS 

245 C = C ♦ ST0RA<M)*A1DGI1(M, I) 

250 STORMII) = STORMU) ♦ SP0ST1*C 

CALL USUM21(UCRIT{ I U3 > ,N S , EDCT 1 , EPCS T 1 , STOR A ) 

DC 260 I = 1 , N F 2 
C * O.DO 
DO 255 H=1,NS 

255 C = C ♦ STDRA ( M > *A IPCS 1 ( M, 1 ) 

260 STORM ( I ) = STORM ( I i + 2 . DO + SPOS T 1*C 

CALL USUM2 1 ( UCR I T ( IU3) , N S , EPCS T 1 , EP0ST2 f S TOR A J 
DC 270 1 = 1 , NF2 
C = O.DO 
DO 265 M = 1 ,NS 

265 C = C ♦ STCRAtM J*ACRIT(M,I) 

270 STORM ( I ) -= STORM ( I ) ♦ C 

CALL USUMX (3,UCRITUU3) ,NS,EPQSTl f STORA) 

DO 280 1=1, NF2 
C = O.DO 
DC 275 M * 1 , N $ 

275 C = C ♦ STORA { M ) *A IPOS 1 { M, I ) 

280 STORM ( I ) = STORM ( I ) ♦ C 

C COMPUTE ELEMENT FORCES P(U - VOLUME INTEGRAL OF G ( M , I I *STORM I M ) 

501 CALL GF I LL ( NF , EGEOM ( 1 » 1 1 ) , G ) 

DC 510 I=1,NF3 
C = O.DO 
DG 505 M = 1 ,NF2 
505 C = C ♦ G(M, I)*ST0RMIM) 

510 pm = C*V 

I F I IPRES S • EQ .0 ) GO TO XCCO 
C ACO NONCONSERVATIVE PRESSURE FORCES TO P 

VCRITtl) * EGEGMUtin ♦ QCRITI4I - QCR I T ( 1 ) 

VCR I T I 2 ) = QCR I T ( 5 ) - QCR I T ( 2 ) 

VCR I T ( 3 ) = QCR I T ( 6 ) - QCR I T ( 3 ) 

VCRXTI4) = EGEOM (3,11) + QCR I T I 7 ) - QCR I T (1> 

VCRITI5) - EGEOM ( 2* I N ♦ QCRITI8) - QCR I T ( 2 ) 

VCR I T ( 6 ) = QCRI T ( 9 ) - CCRIT<3> 

VC0T1U) = QD0TK4I - QDOTim 


00023980 

00023990 

00024000 

00024010 

00024020 

00024030 

00024040 

00024050 

00024060 

00024070 

00024080 

00024090 

00024100 

00024UO 

00024120 

00024130 

00024140 

00024150 

00024160 

00024170 

00024180 

00024190 

00024200 

00024210 

00024220 

00024230 

GC024240 

00024250 

00024260 

00024270 

00024280 

00024290 

00024300 

00024310 

00024320 

00024330 

00024340 

00024350 

00024360 

00024370 



1 


VC0T1I2) - QDDTK5) - GG0T1<2> 

VC0TK3) = ODOTH61 - GCCT 1 ( 3 ) 

V0CT1(4) - Q0GTU7) - QDOTltl) 

VC0TU5) * QG0TH8) - GOCTK2) 

VD0TK6) = Q00TK9) - QCOTlOi 

VPQSTIU) = QP0STU4) - QPOSTltl) 

VPCSTH2) = QPOST1 ( 5 ) - GPOST 1 ( 2 ) 

VPOSTK3) = QP0ST116) - UPOST1 1 3 ) 

VP0STH4) = QP0STH7) - (JPOSTl(l) 

VP0STU5) = 0P0STK8) - QPCST 1 ( 2 ) 

VPGS T 1(6) = 0P0STH9) - GPCST1I3) 

VCOT2U1 = QD0TK4) - GOGTl(l) 

VDGT2 ( 2 ) = GDOT 1(5) - CDCT1(2) 

VCCT 2(3) = UCCTH6) - QCCTK3) 

VOGT 2(4) = GDOTK7) - QDCTlil) 

V00T2 ( 5 ) = QDOTl(8) - GOOTK2) 

VCGT2 ( 6 > = GDOT 1(9) - 0CCT1(3> 

VP0ST2U) = QP0ST2(4) - GPCST2<1) 

VPOS T2 ( 2 ) = QPCST2 ( 5 ) - GPOST2<2) 

9 VP0ST2(3> = QPO S T2 ( 6 ) - QP0ST2(3) 

o> VPCST2(4> * QPGST2 ( 7 ) - QPO$T2(U 

01 VPOST 2(5) = QPOS T2 ( 8 ) - GPGST2<2) 

VPOS T2 ( 6 ) = GP0ST2 ( 9 ) - QPOST2<3) 

CO * (PRO + LCRIT*(PRl~PRO) l*PRR6F( II J/6.D0 
Cl * LDOTl*(PRl-PRG)*PRREF( I 11/6. DO 
C2 = LDOT2*( PR l -PRO ) *PRREF ( I I ) /6 *DO 
CALL VCROS S ( VDCT 2 * VPOST 1 ( 4 ) » V 1 ) 

CALL VCRCSS( VP0ST l , VD0T2 ( 4 ) ,V2) 

CALL VCRCS S ( VOGT l*VP0STlt4) t V3) 

CALL VCROSS( VPOST 1 * VDGT 1 < 4 ) * V4 > 

CALL VCR0SS(VCRITtVP0STl(4),V5) 

CALL VCRGSS(VPCST1*VCRIT ( 4 ) « V6 ) 

CALL VCROSS( VDGT1* VPOST2 (A) , V7) 

CALL VCRCSS( VP0ST2, VOCT1 (4) *V8> 

CALL VCR0SS(VCRIT.VP0ST2(4),V9) 

CALL VCR0SS(VPCST2,VCR1T( A) ,V10) 

CALL VCROSSt VPOST 1 , VPGST 1 ( A) ,VU) 

CALL VCRGSSt VPOS T2 , VPGST U 4 ) , V l 2 ) 

CALL VCROSSiVPOST 1 f VP0ST2 ( 4 ) ,V13) 

DO 610 1-1*3 


00024380 

00024390 

00024400 

00024410 

00024420 

00024430 

0C024440 

00024450 

00024460 

00024470 

00024480 

00024490 

00024500 

00024510 

00024520 

00024530 

00024540 

00024550 

00024560 

C0024570 

00024580 

0C024590 

00024600 

00024610 

00024620 

00024630 

00024640 

C0024650 

00024660 

00024670 

00024680 

00024690 

00024700 

00024710 

00024720 

00024730 

00024740 

00024750 

00024760 

00024770 



oooooooor. or*, ncioooo 


C = CO* I VII I ) + V 2 I I ) +V7 ( I ) +V8 l I ) + V 1 2 ( I ) + V 1 3 ( I ) ) + C 1 + < 2. D0*V3 < I > 
l+2.D0*V4< I )+V9(I)+ViO( n + 2.00*VU( I) ) + C2*(V5U)*V6II)) 

pm - pm - c 

Pi 1 + 3) * P( 1+3) - C 
610 P( 1+6) = Pi 1+6) - C 

C ADD ELEMENT FORCES P TO SYSTEM FORCES PP 

1000 CALL PFILL(NF»ELNG( L * 1 I ) * P * PP ) 

RETURN 

END 


00024780 

00024790 

00024800 

00024810 

00024820 

00024830 

00024040 

00024850 

00024860 
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SUBROUTINE PR ATE S ( KMA T , P 1 ,C 1 , P2 , C2 , NN , I POST , KFD , SCR I T , 
ICCCRIT,QQD0T1,GQDCT2,LCR I T , LOOT 1 , L00T2 , PRO, PR1, 
2CGPOSl*LPOSTltCCPOS2*LPOST2*GQPOS3) 

COMPUTE POSTBUCKLING RATES FOR LCAO PARAMETER AND DISPLACEMENTS. 
KMAT * SYSTEM JACOBIAN STIFFNESS MATRIX. 

PltQlf P2*G2 * TEMPORARY STORAGE VECTORS. 

NN = TOTAL SYSTEM DOF. 

I POST = DOF OF LARGEST EIGENVECTOR COMPONENT. 

KFDU) = FORCE-DISPLACEMENT-CGNSTRAINT SPECIFICATION FOR DOF I. 
SCRIT = PREDICTED CRITICAL VALUE OF FUNDAMENTAL PATH. 

CCCRIT(l) * PREDICTED CRITICAL VALUE OF DISPLACEMENT AT DOF I. 
CCD0T1I I ) r GQ00T2 (I) ^ 1ST, 2ND ORDER CRITICAL FUNDAMENTAL 
DISPLACEMENT RATE AT CCF I. 

LCRIT * PREDICTED CRITICAL VALUE OF LOAD PARAMETER. 

LCQT 1 , LOOT 2 = 1ST,2ND ORDER CRITICAL LOAD PARAMETER RATES. 

PRO , PR 1 = PRESSURE FACTORS AT START OF LOAD STEP,CRITICAL POINT. 
LPDST i,LP0ST2 = COMPUTED 1ST,2ND ORDER PCSTBUCKLING LOAD RATES. 
OGPOSiU),CQPOS2(n,QOPOS3m = 1ST, 2ND, 3RD CRDER POSTBUCKLING 
DISPLACEMENT RATES AT DOF I. 

NF = DOF PER NODE. 

COMMON/COMNF/NF 
INTEGER NN , I POST , KFO ( 1 ) 

DOUBLE PRECISION KMAT ( NN , NN > , P 1< 1 ) , Ql 1 1 ) , P2 ( l ) , Q2 i 1 ) , SCR I T , 
lQQCRITt l>,OQDOTim,QQDOT2U) , LCR I T , LOOT 1 , LDCT 2 , PRO , PR 1 , 

2CCP0SK 1 ) ,LPOSTl ,CCP0S2( 1) , LPOS T2 , CCIPOS 3 1 1 > 

INTEGER l 

DOUBLE PRECISION CN ,CD , SPOST I , SPG ST2 
SOLVE FOR 1ST ORDER DISPLACEMENTS 
DO 10 1*1, NN 


00024870 

00024880 

00024890 

00024900 

00024910 

00024920 

00024930 

00024940 

00024950 

00024960 

00024970 

00024980 

00024990 

00025000 

00025010 

00025020 

00025030 

00025040 

00025050 

00025060 

00025070 

00025080 

00025090 

00025100 

00025110 

00025120 

00025130 

00025140 

00025150 



10 P 1 ( I ) * 0*00 

PKIPOSn * 1 • DO 

call S0LVEIKMAT,NN,KFD,P1, CQPGS1 ) 

NCC * NN/NF 

CALL 0UTP0(6,N0D,NF,Pl t CgP0Sl) 

C SOLVE FOR 1ST ORDER LOADS AND 2ND ORDER DISPLACEMENTS 

CALL P0ST2<NN*CGCRIT,CCCCTl,CQPCSl,LCRIT,LDCTl f PR0,PR1,P1, 1) 
CALL POST2(NN,QGCRIT,GQPGSl»CQPC5l»LCRIT*LDGTl,PRO»PRi,P2,2) 
CALL 0UTPG(6,N0D,NF,P1,P2> 

CN * O.DO 
CC * O.DO 
DC 110 1*1, NN 
CN - CN ♦ CQPOSU I)*P2( I ) 
no CC * CD + CQP0S1C 1>*P1U ) 

SP0ST1 * -.5D0*CN/C0 
LPOSTl * LOOT 1* SPOST 1 
DC 120 1*1 , NN 
1 F < KFD ( I I.GT.OIGC TO 120 
P1(I> * O.DO 

0 P2(I> * O.DO 

1 120 CCNTINUE 

^ CALL S0LVE(KMAT,NN,KFD,PI,G1) 

CALL SOLVE (KMAT ,NN,KFD,P2,Q2) 

CALL GUTPQI6,NCD,NF t Pl,P2> 

CALL QUTPQ 1 6 , NOD ,NF,Q1 V Q2) 

DO 130 1*1, NN 

130 QQPCS 2 < I > * -<2.D0*SP0ST1*G1 HI ♦ G2(Ii) 

CALL CUTPQt 6 ,NOD> NF ,GGOOT2,GQPOS2 ) 

C SCLVE FOR 2ND ORDER LGACS AND 3RD CROER DISPLACEMENTS 

CALL POST3(NN,GQCRIT,GGDOT1,CGPOS1,QGDOT2,GQPGS2,SPOST1, 
1LCR1T ,LOOTI,LDOT2,PRO,PR1,P2) 

CALL 0UTPQ(6,NGD,NF f QGCRlT,P21 
CALL UUTPQI6 ,NGD,NF , GQDCT1 , QGPGS l ) 

CN = O.DO 
DO 210 1*1, NN 

210 CN = CN ♦ GQP0S1 1 1 )*P2( !> 

SPOST 2 = -CN/CD 

LPCST2 * LDCT1*SP0ST2 + LDCT2* SPCST 1**2 

DO 220 1*1, NN 

IFtKFDt I ) • GT .0 1 GO TO 220 


00025160 

00025170 

00025180 

00025190 

00025200 

00025210 

G0025220 

00025230 

00025240 

00025250 

00025260 

00025270 

00025280 

00025290 

00025300 

00025310 

00025320 

00025330 

00025340 

00025350 

00025360 

00025370 

00025380 

00025390 

00025400 

00025410 

00025420 

00025430 

00025440 

00025450 

00025460 

00025470 

00025480 

00025490 

00025500 

00025510 

00025520 

00025530 

00025540 

00025550 



P2( l ) = 0*00 00025560 

220 CONTINUE 00025570 

CALL SOLVE (KMAT t NN,KFD,P2,Q2 ) 00025580 

CALL OUTPQ ( 6tN00*Nf*P2fC2) 00025590 

00 230 1=1, NN 00025600 

230 CCP0S3U) = -3.D0*(SPQST2*0l(I) + 02(D) 00025610 

CALL GUTPQ<6,NOD,NF f OQPC$3 f OQPOS3) 00025620 

R£TURN 00025630 

DEBUG INIT(SPOSTl,LPOSTl,SPOST2,LPCST2,CN,CD) 00025640 

ENO 00025650 


DOUBLE PRECISION FUNCTION VD0T(V1,V2) 00025660 

C COMPUTE VECTOR OGT PRODUCT VCOT = VI DOT V2* C0025670 

DOUBLE PRECISION V1(1),V2U) 00025680 

VDOT = V1U)*V2(1) + Vi(2)*V2<2) ♦ V1(3)*V2(3) 00025690 

RETURN 00025700 

EN0 00025710 


i SUBROUTINE VCRGS S ( V l , V2 , V V ) 

00 C COMPUTE VECTOR CROSS PRODUCT Vi X V2 

DOUBLE PRECISION V 1 ( 1) , V2 (1) , VV ( 1 ) 
VVU) = V1(2)*V2(3) - Vl(3 )*V2( 2 ) 

V V I 2 ) = VU3)*V2U) - Vl(l)*V2I3) 

VV < 3 ) = VI ( 1 ) *V2 ( 2 ) - V 1 ( 2 ) *V2 ( 1 1 

RETURN 

ENO 


DOUBLE PRECISION FUNCTION VLENTH ( V ) 000258C0 

C COMPUTE VLENTH = LENGTH OF VECTOR V. 00025810 

DOUBLE PRECISION V(l) 00025820 

VLENTH = DSQRT < V ( 1 )**2 ♦ V(2)**2 + V(3)**2) 00025830 

RETURN 00025840 

END 00025850 


SUBROUTINE VNORM(VrVV) 00025860 

C COMPUTE NORMAL 1 2ED UNIT VECTOR VV FROM GIVEN VECTOR V. 00025870 


00025720 

* w. C0025730 

00025740 

0G02575G 

00025760 

00025770 

00025780 

00025790 



ooooooooooooo 


I 


CCU8LE PRECISION VU).VVil)*C 
C * 0$QRTIVm**2 + Vt 2)**2 + VI3>**2) 
I F ( C* LE * 0. DO ) C = I. DO 
Will = V( I)/C 

V V( 2 ) = VI2I/C 

V V ( 3 ) = V(3)/C 
RETURN 

END 


0002588Q 

00025890 

00025900 

00025910 

00025920 

00025930 

00025940 

00025950 


SUBROUTINE MERGE < KM A T » ELNG ,K FD , NEL , N N , Nf ) 

GENERATE AND MERGE ELEMENTAL MATRICES INTO GLOBAL MATRIX KMAT • 
ASSUMES ELEMENTS HAVE 3 NOOES* MATRICES MAY BE UNSYMMETRIC. 

KMAT = GLOBAL (TCTAL SYSTEM) MATRIX, WHICH MAY BE UNSYMMETRIC* 
ELNOUtl) = NODE NUMBERS FOR CLEMENT I* 

KFDU) = FORCE -DISPLACEMENT-CON STRAIN! SPECIFICATION FOR DOF I. 
KFDU) * +♦- * SPECIFIED FORCE ,0 1 SPLACEMENT * 

KFDU) = +-I INDICATES INDEPENDENT DOF. 

KFDU) * +-J INDICATES DEPENDENT FREEOOM WHOSE DISPLACEMENT IS 
CONSTRAINED TO EQUAL DISPLACEMENT AT J. 

NEL = NUMBER OF ELEMENTS. 

NN = TOTAL SYSTEM DOF - NUMBER OF NODES TIMES NF. 

NF = DOF PER NODE. 

GENER8 ROUTINE GENERATES ELEMENTAL MATRIX. 

INTEGER ELNO I 3 ♦ 1 ) , KFD I l) » NEL , NN , NF 
DOUBLE PRECISION KMAT ( NN , NN ) 

INTEGER IEU ,J,I1» J J , I G , JO , I I 0 , J JC , l P , JP , I N , JN , I LOC , I I LOC 
DOUBLE PRECISION M9,9) 

C ZERO OUT GLOBAL MATRIX 

DO 5 11=1, NN 
DO 5 J J= l , NN 
5 KMAT I II, JJ) = 0 • DO 
DO 100 IE= 1 *NEL 
CALL GENER8 ( 1E,K) 

C IPfJP ARE PARTITION ROW, COLUMN NUMBERS. 

DO 100 I P= 1 1 3 
IN = ELNO I IP , IE ) 

10 = NF* I P - NF 
110 * NF* I N - NF 
DO 100 JP= 1 » 3 


00025960 
00025970 
00025980 
00025990 
00026000 
00026010 
00026020 
C0026030 
00026040 
C0026050 
00026060 
00026070 
00026080 
00026C90 
00026100 
00026110 
C0026I20 
00026130 
00026140 
00026150 
00026160 
00026170 
00026180 
00Q26 190 
00026200 
00026210 
00026220 
00026230 
00026240 
00026250 
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C 


C 


JN = ELNCt JP, IE) 

JO = NF* JP - NF 
JJO = NF*JN - NF 

MERGE PARTITION INTO GLOBAL MATRIX 
DC 50 1=1, NF 
DO 50 J = l » NF 

50 KMAT ( 1 104 1 , J J0 + J ) * KMATII I0 + It JJO + J) ♦ K(IO+I,JO+J) 

100 CONTINUE 

ACD CONSTRAINED ROWS AND COLUMNS TO INDEPENDENT ROWS AND COLUMNS 
DC 200 ILQC=1*NN 
I ILOC = KF 0 ( ILOC ) 

1F< IlLOC.LT.O)tlLOC = -IILGC 
IF! I ILGC.EQ.ILCOGG TO 200 
DC 180 1*1, NN 

180 KMATI I, I ILOC ) = KMAT I I , I I LOC ) 4 KMAT(I,ILOC) 

DO 190 J = 1 , NN 

190 KM A T t 1 1 L OC » J > = KMAT ( 1 I LOG , J ) 4 KMAT(ILCC,J) 

200 CONTINUE 
RETURN 
END 


CC026260 

00026270 

00026280 

00026290 

00026300 

00026310 

00026320 

00026330 

00026340 

00026350 

00026360 

00026370 

00026380 

00026390 

00026400 

00026410 

00026420 

00026430 

00026440 

00026450 


SUBROUTINE DECCMP ( KMAT ,NN , KF D, I DET , DET ) 

DECOMPOSE GLOBAL STIFFNESS MATRIX KMAT, AND COMPUTE DETERMINANT. 
KMAT = GLOBAL ITOTAL SYSTEM) MATRIX, WHICH MAY BE UNSYMMETRIC. 

NN = TOTAL SYSTEM DOF. 

KFDt I) = FORCE-DISPLACEMENT-CONSTRAINT SPECIFICATION FOR OCF I. 
KFOU) = = SPECIFIED FORCE , D I SPL ACEMENT . 

KFDII) = 4-1 INDICATES INDEPENDENT DOF. 

KFD(I) = +-J INDICATES DEPENDENT FREEDOM WHOSE DISPLACEMENT IS 
CONSTRAINED TO EQUAL DISPLACEMENT AT J. 

I DET , DET = SIGN, LOGARI THM (BASE 10) OF DETERMINANT. 

INTEGER NN »KFD ( 1 ) , IDE T 

DCUBLE PRECISION KMAT ( NN ,NN ), GET 

INTEGER NM1, I I , J J I , J J2 , 1 , J 

DCUBLE PRECISION C,C 

IFINN.EQ.l )RETURN 

NM1 = NN- 1 

00 200 1 1 = 1, NM 1 

IFIKFDI I I ) .NF* I I ) GO TO 2C0 


C0026460 

00026470 

00026480 

00026490 

00026500 

00026510 

00026520 

0C026530 

€0026540 

C0026550 

00026560 

00026570 

00026580 

00026590 

00026600 

00026610 

00026620 

00026630 



n 


i 


0 = l.DG/KMAT t II • I I) 

JJ1 = II+i 

C D l STR IBUTE II IH ROW OF UPPER TRIANGULAR MATRIX 

CC 90 J = JJ i » NN 
C = D*KHA T ( II, J) 

IF(C.EG.O.DO) GO TO 90 

C DISTRIBUTE KHATUltJ) TO JTH CCLUMN 

DC 50 l=JJl,J 

50 KMATUtJ) = KMATtI,J) - C*KMAT(I,II) 

90 CONTINUE 

C DISTRIBUTE II TH COLUMN CF LOWER TRIANGULAR MATRIX 

JJ2 * 11*2 

IFI JJ2.GT.NN)G0 TO 200 
DC 190 J=JJ2,NN 
C - D*KMAT(J, II ) 

IF(C.EQ*0*D0)G0 TO 190 

C DISTRIBUTE KMAT I J , 1 1 ) TC JTH ROW 

JM1 * J-l 
DO 150 I-JJitJMl 

150 KMAT t J , I ) * KMAT { J * I J * C*KMATUi»II 
190 CONTINUE 
200 CONTINUE 

C COMPUTE DETERMINANT 

ICET - 1 
DET = 0 • DO 
DO 500 11=1, NN 
I F ( KFD( I U.NE.II IGO TO 5C0 
D = KMA,T( 11,11) 

IFI D.lT.C.DO ) IDET = - I DET 
DET = DET ♦ DLOGIOIDABSIO) ) 

500 CONTINUE 

1201 FORMAT! 1H0, • JACOBIAN DETERMINANT S IGN , LOGAR I THM *',15,015.7) 
WRITEI6, 1201 ) IOET »DET 
RETURN 
END 


00026640 

00026650 

00026660 

00026670 

00026680 

00026690 

00026700 

00026710 

00026720 

00026730 

00026740 

00026750 

00026760 

00026770 

00026780 

00026790 

00026800 

00026810 

00026820 

00026830 

00026840 

00026850 

00026860 

00026870 

00026880 

00026890 

00026900 

00026910 

00026920 

00026930 

00026940 

00026950 

00026960 

00026970 

00026980 


SUBROUTINE SOL VE I KMAT , NN ,KFO , P , Q ) 00026990 
C FCRW ARC-BACK SUBSTITUTE TO SOLVE FOR FORCES P AND DISPLACEMENTS C. 00027000 
C KMA I = DECOMPOSED SYSTEM JACOBIAN MATRIX (MAY BE UN SYMMETR IC ) * 00027010 



oooooooonno 


NN = TOTAL SYSTEM OOF • 

KFO(I) - FORCE-D I SPLACEMEN T-CONSTR A I NT SPECIFICATION FOR DOF I. 
KFDII) * + = SPECIFIED FO RCE , D I SPL AC EM ENT . 

KFDU) = *-I INDICATES INDEPENDENT DOF • 

KFD(I) = +-J INDICATES DEPENDENT FREEDOM WHOSE DISPLACEMENT IS 
CGNSTRA I NEO TO EQUAL DISPLACEMENT AT J. 

PCI), QII) * FORCE, DISPLACEMENT AT OOF I. 

EACH DOF HAS EITHER SPECIFIED FORCE OR DISPLACEMENT. 

INPUT P * SPECIFIED FORCES AND DISPLACEMENTS, Q = GARBAGE. 
OUTPUT P = SPECIFIED AND COMPUTED FORCES, Q * SPECIFIED AND 
COMPUTED DISPLACEMENTS. 

INTEGER NN, KFD(l) 

DOUBLE PRECISION KMAT ( NN ,NN ) , P I 1 ) , C U i 
INTEGER I,J,II,I CUM 
DOUBLE PRECISION C 

CORRELATE DEPENDENT- INDEPENDENT DOFS, ZERO OUT Q 
DO 5 1*1, NN 
J = IABSIKFDI I > ) 

IFIJ.EQ.DGO TO 5 

, IFIKFDI J).GT.O)P< J) * P(J) + PH) 

-J PI I) * O.DO 

w 5 QII) * 0.00 

C FORWARD SUBSTITUTION 

DO TOO I - l » NN 

° IFIKFDI D.NE.I ) GO TO 31 

C = IQI I) + PI I)) /KMAT <1,1 ) 

QII) - C 
GO TO 41 
31 C - PI i ) 

PCI) * -QII) 

QII) = C 

41 IF! I.EQ.NNiGO TO ICO 
II = 1*1 
DC 50 J-IL,NN 

50 C C J > * QU) - KMA T I J , I ) *C 

100 CONTINUE 

C BACKWARD SUBSTITUTION 

I = NN+l 

CO 200 IDUM= 1 ,NN 

I = I“1 . , 


00027020 

00027030 

00027040 

0C027050 

00027060 

00027070 

00027080 

00027090 

00027100 

C0027110 

C0027120 

00027130 

0C027140 

00027150 

00027160 

00027170 

00027180 

00027190 

00027200 

00027210 

00027220 

00027230 

00027240 

00027250 

00027260 

00027270 

00027280 

00027290 

00027300 

00027310 

00027320 

00027330 

00027340 

00027350 

00027360 

00027370 

00027380 

00027390 

00027400 

000274*0 



C = 0 • DO 

I F ( K FD ( [ ).NE. I ) GO TO 131 
IF< I.EO.NNIGO TO 200 
U * 1 + 1 
DC 120 J = I 1 , NN 


120 

C = C 

♦ KMAT ( 

I 

, 

J)*0( 

J> 


0(1 I * 

CM II - 


C 

/KMAT 

(Itl) 


GC TO 

200 





131 

DO 140 

J = I ,NN 





140 

C = C 

♦ KMAT ( 

I 

* 

J)*Q< 

J) 


PCI) = 

P(I) + 


C 



200 

CCNTINUE 






C SET DEPENDENT DISPLACEMENTS, 

DC 205 1=1, NN 
J » IABS( KFD ( 1 > ) 

IF( J.EQ. I > GO TO 205 
u ( i > = g( j ) 

P I J ) = PI J ) - PCI) 

205 CCNTINUE 

0 RETURN 

1 ENG 


00027420 

00027430 

00027440 

00027450 

00027460 

00027470 

00027480 

00027490 

00027500 

00027510 

00027520 

00027530 

AND ADJUST INDEPENDENT FORCES 00027540 

00027550 

00027560 

00027570 

00027580 

00027590 

00027600 

00027610 

00027620 


START 5 5 6 

TCRUS MCSF-12 { R R~ 1 0 , R = 2, 
3 2 

1.03 1 .0-6 

2 .01 1.0 

1 3 .05 

2 80.0 20.0 


T=.05) MOONEY MATERIAL, Cl=80. C2=2G K. VOS 
1 5 1.0-6 

0.1 - 10.0 


1 1 8.0 0,0 

2 1 8.0 2.0 

3 1 8. 0681483C.0 

4 l 8.06814832.0 

5 1 8.26794920.0 

6 l 8.26794922.0 

7 1 8.58578640.0 

8 1 8.58576642.0 


0.0 1 

0. C l 
.517631257 1 
.517631257 1 
1.0 1 

1. C l 
1.41421356 i 
1.41421356 1 



-74 


9 

1 9.0 

0.0 

1.73205081 

1 

10 

1 9.0 

2.0 

1. 73205081 

1 

11 

1 9 . 48236870.0 

1.93185165 

1 

12 

1 9 . 48236872.0 

1.93185165 

1 

13 

110.0 

0.0 

2.0 

1 

14 

110.0 

2.0 

2.0 

l 

15 

110 . 51763130.0 

1. 93185165 

1 

16 

110 . 51763132.0 

1.93185165 

1 

17 

111.0 

0.0 

l . 73205081 

1 

18 

111.0 

2.0 

1.73205081 

1 

19 

111 . 41421360.0 

1.41421356 

l 

20 

111 . 41421362.0 

1.41421356 

1 

21 

111 . 73205080.0 

1.0 

1 

22 

111 . 73205082.0 

1.0 

i 

23 

111 . 93185170.0 

.517631257 

1 

24 

111 . 93185172.0 

.517631257 

1 

25 

112.0 

0.0 

0.0 

1 

26 

112.0 

2.0 

G.O 

1 

1 

2 

2 

1 3 


2 

2 

3 

4 2 


3 

2 

4 

3 6 


4 

2 

5 

6 3 


5 

2 

6 

5 7 


6 

2 

7 

8 6 


7 

2 . 

8 

7 10 


-8 

2 

9 

10 . 7 


9 

2 

10 

9 1 1 


10 

2 

n 

12 10 


11 

2 

12 

11 14 


12 

2 

* 13 

14 11 


13 

2 

14 

13 15 


14 

2 

15 

16 14 


15 

2 

16 

15 18 
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